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Pen 


? COMPILE NUCANDE/TSHARER wITH TSPUL LIBRARY 


whe 


kat 


PACKET 1044 
INPUT 614 CARDS FROM ZIP 

TIME 1740 

DATE 77012 WEDNESDAY* 01/12/77 


MESSAGE OF THE DAY wee 


WELCOME TO g—5700 TIME SHARING, 
MAY YOUR DATA BE DEPENDABLE AND YOUR PROGRAMS PROVENe 
FROM THE STAFF OF THE BIG BAD BURROUGHS, 


BURROUGHS B5700 TSMCP MARK XVIe0069 AND INTRINSICS MARK XVJe0800 *¥* 


? COMPILE NUCANDE/TSHARER WITH TSPOL LIBRARY 


? TSPOL STaCKa 1024. COMMENT TSPOL STACK AIN@T BIG ENOUGH 


? TSPOL FILE TAPEs SYMBOL/CANDE DISK SERIAL 


? COREs 3000, COMMENT SETS CORE EST FOR CANDE TO 3000 WORDS 


? STACKS 256, CANDE STACK NEEDS NO MORE THAN 256 WOS 


? DATA CARD 


PEND, 


4tTSPOL/NUCANDE= 4 BOY 1740 08/28/76 

COB Im CARD OBSTSPOL/NUCANOE® 4 

DKA IN SER SYMBOL CANDEITSPOL/NUCANDE® 4 
Ppp104, OUT O14 LINES TSPOL/NUCANDES 4 

DKA OUT SER DSK1 OQQOQQ00S8TSPOL/NUCANDES 4 
DKA OUT SER DSK2 OOOOOOOETSPOL/NUCANDES 4 
DKA QUT RDM NUCANDE TSHARERSTSPOL/NUCANDES 4 
4TJ 

TIME FOR TSPOL/NUCANDE® 4 [S 4346 IN 10834 
DKA LOK NUCANDE TSHARERSTSPOL/NUCANDES 4 
COB REL CARD DBSTSPOL/NUCANDES 4 


OKA REL SymBOL CANDESTSPOL/NUCANDE® 4 
DKA OUT SER OSRT1 QOQOQOQQOITSPOL/NUCANDE® 4 
#NO USER DISKITSPOL/NUCANDEs 4° 1056 SEGS, 
OS OK ; 
_.#NO USER DISKETSPOL/NUCANDE® 4° 1056 SEGS,. 
40K 
OKA OUT SER DSRT2 OOOOOQOOSTSPOL/NUCANDE® 4 


~DSRT1/0000000/0000000s 0 SEGS==CREATED 01/12/77 AT 47956159954 


DKA REL DSRTY QOQOOOOSTSPOL/NUCANDE® 4 


OSRT2/0000000/00000008 0 SEGS=#CREATED O17 12077 AT 164021303838 


OKA REL ODSRT2 QQOOQQOITSPOL/NUCANDE® 4 
DKA OUT SER DSRT1 OOQOQOOOSTSPOL/NUCANDE® 4 
DKA OUT SER OSRT2 QOOOQOOSTSPOL/NUCANDE® 4 
#NO.USER DISKITSPOL/NUCANDE@ 4* 901 SEGS,. 
OS OK 
#NO USER DISKITSPOL/NUCANDE® 4° 901 SEGS, 
40K , 
#NO USER DISKITSPOL/NUCANDE® 4= 901 SEGS. 


4 ots... oe c: 4 


‘ f 2 < 
z & 


Pee. were 


OS OK 

#NQ USER DISKITSPOL/NUCANDE= 4" 901 SEGSe 

OS OK 

#NO USER DISKITSPOL/NUCANDE@® 4° 901 SEGS,s 

OS OK 

#NO USER DISKITSPOL/NUCANDE™ 4" 901 SEGSe 

DS OK 

#NO USER DISKITSPOL/NUCANDE® 4 901 SEGS, 

40S 
*OPRTR DS*EDSTSPOL/NUCANDES 4, S*® 1709 Am® 4281 
05K2/70000000/00000008 600 SEGS@"CREATED 01/12/77 AT 17440539855 
DKA REL DSK2 QQOOQQO00ITSPOL/NUCANDE= 4 

PBD1044 REL 011 LINE 135023 TSPOL/NUCANDES 4 
DSK1/0000000/0000000a 600 SEGS@"*CREATED O1/12/77 AT 17840822339 
DKA REL DSK1 QOOOO0OSTSPOL/NUCANDE® 4 

DSRT2/0000000/00000008 1056 SEGS#*CREATED 01/12/77 AT 18304806328 
DKA REL OSRT2 QOQOQQOOSTSPOL/NUCANDE® 4 

DSRT1/0000000/00000008 1056 SEGS@=CREATED 01/42/77 AT 148902831322 
DKA RE, DSRF1 QOQOOOOTTSPOL/NUCANDE® 4 

TSPOL/NUCANDES 4ePST#® 11304 DS*ED 

PKT#1041 REMOVED 


e «+. le oo eda as 
® LABEL OOOOD0O00LINE 00177012? COMPILE NUCANDE/TSHARER WITH TSPOL LIBRARY TSPOL /NUCANDE 
‘“ BURROUGHS 8=5700 TSPOL COMPILER MARK XVI+0900 WEONESDAY» O1/142/772 5140 PM, 
® NUCANDE/TSHARER 
SRISESSSSTSSssazz=z 
@ 
COMMENTS * TITLE’ B5500/B5700 MARK XVI SYSTEM RELEASE * 00000100 tT 0000 
* FILE 1D% SYMBOL/CANDE TAPE IDt SYMBOL2/FILE000 1 00000101 T 0000 
e * THIS MATERIAL IS PROPRIETARY TO BURROUGHS CORPORATION * 0e@000102 T 0000 
* AND IS NOT TO BE REPRODUCEDs USED» OR DISCLOSED * 00000103 T 0000 
e * EXCEPT IN ACCORDANCE WITH PROGRAM LINCENSE OR YPON . 080001904 7 9000 
| « HRITTEN AUTHORIZATION OF THE PATENT DIVISION OF * 00000105 T 0000 
# BURROUGHS CORPORATION» DETROIT» MICHIGAN 48232 ‘ 00000106 T 0000 
* * 00000307 T 0000 
oe * COPYRIGHT (C) 19719 1972» 1974 . 00000408 tT 0000 
* BURROUGHS CORPORATION * 080000109 T 9000 
*« AA320206 AA386657 AA332366 wi 00000310 fT 0900 
® BEGIN % CANDE/TSHARER LAST REVISION i1e72 00001000 Tt 0000 
: START OF SEGMENT taaeeeenan = 2 
: DEFINE VFINISHED = 008; 00001100 T 0000 
. DEFINE  VHELLO = 018} 00001200 T 0000 
DEFINE VBREAK = 028} 09001300 T 0000 
DEFINE VWRU = 0383 00001400 T 000 
e DEFINE VLINECLEAR = O48; 00001500 T 0000 
DEFINE VDISKCHUNK = 0583 00001600 T 0000 
DEFINE VDISCONNECT = 0683 09001700 T 0000 
e DEFINE VINPUTDATA = O78} | 08001800 T 0000 
DEFINE VBREAKCLEAR = O68} 00001900 7 0000 
DEFINE VRESTARTIT = 098} 09001950 T 0000 
@ DEFINE | VMCPUSE = 1083 00002000 T 0000 
DEFINE VLISTNEWS S 12#3 % DUMMY CALL IN HITHERE 00002080 7 0000 
DEFINE VMCPMSG = 1483 00002100 tT 0000 
e DEFINE  VCO@LIT = 158; o@002110 T 0000 
DEFINE VMCPOK = 1683 oB002120 T 0000 
DEFINE VTEACHER = 25%; 0@002200 t 0000 
e DEFINE VINPUT = 2683 08002300 T 0000 
DEFINE VOISPATCH = 2783 00002400 t 0000 
DEFINE VDISKREAD = 2883 00002500 7 0000 
@ DEFINE VRESTART = 298} 09002600 T 0000 
DEFINE VOoPS. = 308) . 0@002700 T 9000 
DEFINE VDOGCATCHER & 3183 00002800 tT 0000 
e DEFINE VCOMPILEIT = 3283 00002900 T 0000 
DEFINE VSETUPFILES = 3385 09003000 r 0000 
DEFINE VERROR = 348} 00003300 T 0000 
® DEFINE  VCLOSEWORKTABLE® 35383 00003200 T 0000 
DEFINE VCHNGPSWO z 3683 09003300 7 0000 
DEFINE VTIME = 378} 00003301 T 0000 
e DEFINE  vCC = 3883 00003310 T 0900 
DEFINE VCHNGNAME = 3983 09003312 T 9000 
DEFINE | VMONITORR = 4083 00003314 T 0000 
of DEFINE SET = 4183 00003316 T 9000 
DEFINE VSSFILE = 4283 00003318 T 0000 
° DEFINE  VEQUATE © 43#3 % LABEL EQUATION 00003320 T 0000 
& 


DEFINE VSTATUSCHECK = Ghee; 

DEFINE VSSMSG = 508} 

DEFINE VPOIT = 518; 

DEFINE VCORY = 52#3 

DEFINE VSEQ = 538; 

DEFINE VBYE = 5483 

DEFINE VMAKE & 55%; 

DEFINE VLIST = 5683 

DEFINE VEXECUTE = 5783 

DEFINE VLOAD = 588} 

DEFINE VSAVE = 598} 

DEFINE VREMOVE = 6183 

DEFINE VCHANGE = 6283 

DEFINE VRENAME 3 63%; 

DEFINE VWHATS = 6483 

DEFINE VTYRE = 65%} 

DEFINE VGUARD = 67%} 

DEFINE VLOCK = 6883 

DEFINE VTAPE = 698; 

DEFINE VPRINT zB 7083 

DEFINE VCHARGE = 74183 

DEFINE VSCHEDULE ® 7283 

DEF INE VSTATUSSTOP = 7343 

DEFINE VLFILES = 7483 

DEFINE VUPDATE = 75#3 

DEFINE VREPLACE = 76 #3 

DEFINE CALLCCALLAISIAMS=O#3 & FOR UNUSED CASE STMTS 
% 

INTEGER COMMON} 

SAVE ARRAY 1(0830)3 

DEFINE STUFF aL#3 

DEFINE FF @ C1I88i5S)#. CF * (339815183 SF FIELD & C FIELD 

DEFINE CR0#> LFR3I"100001"#» CRLF&1#» NOCRLF=3"100000"#3 

DEFINE NQ s NOT#3 


DEFINE MAXLINES = 1283 


% # OF LOGICAL LINES TO BE HANOLEDe 40903 


DEFINE IDLETIME * 36000083 
DEFINE LLWORDS 10083 % NO OF WORDS PER LOGICAL LINEs 
DEFINE TBLSZ =2083 % WRKTBL SEGS MAX C174CHKPOINT), 
REAL DISKBOTTOMS % FOR OLRECTORY SEARGHESs 
DEFINE NUMOFVERBS = 49#s 
NUMOFTYPES =418> % NUMBER, OF TYPE WORDS 
% vOID 
 vOID | 
NUMOFRESWRUS # 30 #3 % NO» OF RESERVED WORDS (NOT VERBS) 
BOOLEAN FLAGS 
% 
DEFINE WECANUSEDATA # FLAGSelit1) # 
» NODATA = FLAGS,(C281) # 
* NODATAREQUESTED * FLAGS.Cf3$1) # 
» NOFILES = FLAGS s(4s1) # 
» NOTANKS = FLAGS,(531) # 


; 


WENEEDTOCOOLIT = FLAGS e(681)# 
TIMETOOKLINES = FLAGS» C731)# 


sBOOLEAN ooGsAROUND RERREARAARALAARRAALY TEMP LARAARSAAALARAAARARAAS 


DEFINE 


TELETYPE 3 Ot» 


00003330 
00003400 
00003500 
00003600 
00003700 
00003800 
00003900 
00004000 
00004100 
00004200 
00004300 
00004500 
00004600 
00004700 
09004800 
00004900 
00005100 
00005200 
00005300 
08005400 
000039450 
00005500 
00005600 
00005700 
00006390 
00006395 
00006400 
00006500 
00006600 
00006700 
00006800 
00007600 
00007700 
00007800 
00007900 
00008000 
00008100 
00008200 
00008300 
00008400 
00008500 
00008600 
00008700 
00008750 
00006800 
00008900 
00009000 
00009100 
00009200 
00009300 
00009400 
00009500 
000095190 
00009520 
00009600 
00009700 
00009730 
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0000 
0000 
0000 
0000 
0000 
9000 
0000 
9000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
9000 
0000 
0000 
0004 
0004 
0004 
0004 
0004 
0004 
0004 
0004 
0004 
0004 
0004 
0004 
0004 
0001 
0004 
0004 
0004 
0004 
0001 
0001 
0004 
0003 
0004 
0001 
0001 
0001 
0004 


Hy Dens Ae 


CONRAC 
TC500 
BIOS 


“ua 


14> 
aks 
3%3 


TTYINPUT [O829)3 
WORK [O859]5 


DATAOFFSETTes 


DATAWORDSs 


INPUT DATA FROM LINEMTNCE 


% 1/0 PROCESSING AREA 
DATADISKLOC; 


ROWINUSE»DOGCATCHERSsROWCOUNTs TIMENOW; 


NUDCOUNT3 


MSGFILELOC 
TANKFILES 
TANKSIZES 


Li ’ 
LLPREV ’ 
CLOCK ’ 
CLOCKPREV»s 
WAITBIT 
REASON ’ 
ASTOR ’ 
DATE , 


2 TO VOID A CARD 


IAM 
DOING 
WANT 
ERRSW 
BASE 

TEMP 
PARAM 
WATTFOR 
PREVRGW 
USERBASE,s 
SREG 


seer tye & Ve BV 


SCWs» RCW 


SCWWAITBITS # 


SCHWAIT 
SCWPREV 
SCWBASE 
SCWDOOING 
SCWIAM 


RCWSREG 
RCWPARAM 
RCWTEMP 
RCWBASE 
RCWDOING 
RCWYAM ® 


awannih 


3 


3 


& CUNTAINS ABS DISK LOC MESSAGES. 
® DISK ADOR OF TANK/OISK, 
% ROW SIZE OF TANK FILE. 


de BE Be de BE dL dE dE 


LOGICAL LINE NO CURRENTLY BEING HANDLED, 
LOGICAL LINE NO PREVIOUSLY HANDLED, 
CONTAINS PROCESSOR TIME USED. 
PREVIOUS PROCESSOR TIME USED, 

WAIT INDICATOR FOR NEXTEVENTe 
REASON FOR THIS EVENT ENTRYe 
CONTAINS # FOR TTY RESPONSE 
DATE@=*MM/DD/YY 
40523° 


CALLING PROCEDURE NO, OR NEXT OPERATIONS 
GALLER"S CASE OR SWITCH VALUE, 
REQUESTED OPERATION NUe 

IF AN ERROR JS ENCOUNTERED, 
BASE OF LL SCRATCH AREAs 


PARAMETER 
CONDITION 
POINTS AT 
BASE ADDR 


COUNT BEING PASSED TQ PROCEDURE 


REQD BEFORE RETURNING, 
LATEST RcwW FOR THIS LINE, 
OF USERS/CANDE 


% 
x 
x 
x 
% 
% TEMPORARY WORDS YSED BY A PROCEDURE. 
% 
% 
% 
* 
] 


80521° 


"STACK" REGISTER FOR ACCESSING ARRAY WOS, 


® STACK CONTROL WORD, RETURN CONTROL WORDs 
STACKSIZE*PROCESSLIMI Tse IOLIMITsCORESIZE »COMMONVALUES 
WORKADRS*#WORKENDAORSS % POINTERS TO WORK ARRAY 


C1047) 
SCwWef1097) 
SCw.Ci7%6) 
SCw,f25%al 
SCW,.f3337] 
SCW,.C4038) 


ROW, (03%) 
RCWelidt7) 
ROW. C1897) 
RCW. C2598) 
RCWel 3387) 
RCWel 4088) 


#3 


Be Be BE Be pe de 


Be Be HE dE DE dE 


DEFINE. ESPTABLESIZE = 40#} % INCREASE THIS IF "NO ROOM" ERRORS 


ARRAY ESPTABLECOSESPTABLESTZE Js % ESP SEGMENTS FOR LABEL EQUATION 
CTRANDBASE (0815)3 


ARRAY 
ARRAY 
ALPHA ARRAY 


DOGHOUSE COSMAXLINES)3 
VERBTABLE CO82xXNUMOF VERBS)» 


00009740 
00009750 
00009760 
00009800 
00009900 
00010000 
00010100 
00019200 
00010300 
00010350 
00010400 
00010500 
00010600 
00010700 
00010800 
00010900 
00011000 
000111900 
00011200 
00011300 
00011400 
00011500 
00011600 
00011700 
00011800 
00011900 
00012000 
00012100 
00012200 
00012300 
00012400 
00012500 
00012510 
00012600 
00012700 
00032800 
00012810 
00012820 


00012900 | 


00013000 
00013190 
00013200 
00013300 
00013400 
00043500 
00013600 
00043700 
00013800 
00013900 
00014000 
00014100 
00014200 
00014300 
00014310 
00014500 
00014600 
00014700 
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0004 
0004 
Q004 
0004 
0004 
0004 
0003 


0005- 


0005 
0005 
0005 
0005 
0005 
0005 
0005 
0005 
0005 
0005 
0005 
0005 
0005 
0005 
0005 
0005 
0005 
0005 
0005 
0005 
0005 
0005 
0005 
0005 
0005 
0005 
0005 
0005 
0005 
0005 
0005 
0005 
0005 
0005 
0005 
0008 
0005 
0005 
0005 
0005 
0005 
0005 
0005 
0005 
0005 
0005 
0007 
0008 
0010 


cre B 


hiteae ve ctrat, tne. sy ae 


} 
Hf 
i 


REAL 
REAL 
DEFINE 


REAL 
COMMENT? 
DEFINE 
DEFINE 
DEFINE 


ARRAY 
ARRAY 
% 


, 


ARRAY 


% 


TYPETABLE CO8NUMOFTYPES)>» 
RESWROTABLE CO#NUMOFRESWROS+1)3 


EVENTS CO%4]; ® QUR EVENT AREA, 
EVENT CO820)3 % MCP EVENT AREAe 
EVENTLL m EVENTS(CO]sC2598)] # 

EVENTREASON @ EVENTS(O),C1887) # 

3% 

LINE COSMAXLINESsOS8LLWORDSJS % LOGICAL LINE INFO, 


THE FOLLOWING DEFINES ARE USED TO ACCESS LINE ARRAYWORUS3 
TBASE =0#3 % BASE FOR TBL ENTRIES 
SBASE = 4983 % PROCEDURE STACK BASE 


LLINFO = AC11)] #, & LINE CONTROL INFORMATION, 
LLOISKREAD= ALI2) #» % ADORESS OF DISK SEG TO BE READ, 
WAITINGSCW# AC13) #2 % HOLDS CURR SCW DURING A WAIT, 
MSGPOINTER= A[L14] #e» % 

MSGPTR = AC14) #, % 

MSGPTRLOC * 14 #» % 

USERLOC = ACIS] #, % ADOR OF USER REC 

USERCODE * AC16) #s a 

uckac 3 168s 

RLCW = AC17) & % STORED VALUE OF CURRENT LCw 
CHARGE = ACL) #, % CHARGE CODE IF USEDe 

LOGONTIME # A[19] &, % 

PTIME = AC20) # & PROCESSOR TIME USED ON THIS Lhe 
PTLOC * 20 Fs % LOCATION OF THIS LINES PTIME, 
INPUTCTR * AC21) % NUMBER OF INPUTS WE RECVDes 
FILENAME = AC22] #, % NAME OF THE "WORK" FILE 

DEVICE = AC23) #» % TYPE OF REMOTE TERMINAL 

PREVMSG = ALT24) #» % MESSAGE BEFORE NO OISK OCCURRED 
INCREMENT * A[L24] #» % 

SEQLAST = AC25)] #, 

SE@IN = AC26) #» 

LASTRECORD= AL27]) #, % DATA FILE RECORD COUNT 
TABLEINFO = AC28)] #,s ® CONTROL WORD FOR WORK TABLE 


UPOATEBIT * AC28).02381) #e % UPDATE IN PROGRESS 
TPOKREL = TABLEINFO,C2436) #» % REL SEG ADDR 


TPREC = TABLEINFO.C30%2)] #> % 10 WO REC IN SEG 
TPENTRY = TABLEINFO.C32:4) #e % WHICH OF 10 IN REC 
TPCOUNT #® TABLEINFO.(36312)#,2 % NUMBER OF ENTRIES 
WRKTBLAOR = AC29] ¥» % ABS DISK ADDR FOR WORK FILE 
TPOKAOR * WRKTBLADR + TPOKREL #@» % CURR WRK FILE ADDR 
FILETYPE # AC30] #» % TYPE OF FILE WORKING ON 
SOURCEFILE® AC34] #» % NAME OF CURRENT SOURCE FILE 
ESP1 ® AC32) #» % ADDRESS OF FIRST ESP SEG 
ESP2 = AC33) #, % SECOND ESP SEGMENT 

RUNL = AL34] #, % FIRST NAME OF THING RUNNING 
RUN2 = AC35) #, % LAST NAME OF THING RUNNING 
OBVECTFILES AL36) #» % NAME OF CURRENT OBJECT FILE 
LISMSGCTR = AC37) #, % NO OF LIBMTNCE MSGS, 

ETIME = AC38) #, % EXECUTION TIME, 


SCHEDNAME = AC39] #» &% NAME OF SCHEDULE FILE 
TIMELIMITS® AC39) #s &% AUTHORIZED TIME PERIOO 
NOTIFYBIT * AC39],0231] # ¥ "ON" WHEN NOTIFIED 
NOTIFIED * BOOLEANCNOTIFYBIT) # 

NOTIFYTIME 2 AL4O) #, 


00014800 
00014900 
00015000 
00015100 
00015200 
00015300 
00015400 
00015500 
00015600 
00015700 
00015800 
00015900 
00016000 
00016400 
00016200 
00016300 
00016400 
00016500 
00016510 
00016600 
00016700 
00016800 
00016900 
00017000 
000171300 
00017200 
00017300 
09017400 
00047500 
00017600 
00047680 
00017700 
00017800 
00017900 
09018000 
00016100 
00018110 
00018200 
00018300 
00018400 
00018500 
00018600 
00018700 
08018800 
00018900 
00019000 
00019100 
00019200 
00019300 
00019400 
00019500 
00019550 
00019560 
00019600 
00019602 
00019604 
00019606 
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0014 
0015 
0018 
0020 
0022 
0022 
0022 
0022 
0022 
0024 
0024 
0024 
0024 
0024 
0024 
0024 
0024 
0024 
0024 
0024 
0024 
0024 
0024 
0024 
0024 
0024 
0024 
0024 
0024 
0024 
0024 
0024 
0024 
ov24 
0024 
0024 
0024 
0024 
0024 
0024 
0024 
0024 
0024 
0024 
0024 
0024 
0024 
00g4 
0024 
0024 
0024 
0024 
0024 
0024 
0024 
0024 
0024 


i 


3 
BOOLEAN ARRAY 


COMMENTS 

DEFINE 
s 
yd 
a 
a 
td 
a 
, 
ry 
’ 
a 
tJ 
a 
9 
rd 
a 
a 
F 
& 
4 
x 
4 
a 
a 
’ 
7 
F 
9 
s 
a 
a 
a 
a 
s 
a 
a 

DEFINE 

DEFINE 

DEFINE 


TIMERESTRICTBIT & AL39J) 40381] #e 
RESTRICTEOLANGUAGES = AL4I) Be 


RESTRICTEOVERBS = AC42)#» % AND A(43] 


GRACEPERIOOD # 0,25 #» 
IOTOT #2 AC44) #, & TOTAL JQ TIME FOR 
COMMONCELL @ AL4S) # 
CHKSEQNMBR = AC46) #» %& NEXT SEQ NO, 


OPTIONBITS = ACa7) 
ESPWORD = AC48) 
ESPWORDCIS1)#> 


ESPFLAG 


3 
ESPCOUNT = ESPWORD,(218)]#> 
J 


FIRSTESP 


LLCONTROL COSMAXLINES)3 


ESPWORD.[20828) #3 


THIS LL 


FUR BLOCK XMISSN 
#» & USERS “SPECIAL” UPTIONS 
#» % LABEL EQUATION INFO 


% LOGICAL LINE CONTROL, 


THE FOLLOWING DEFINES ACCESS LLCONTROLS 


CONTROL wORD,. 


LABEL EQUATED 


ZDONT STOP SCHD, ON ERR 


LCw = LECONTROLOCLLI #2 % LINE 
LOGGEOON me LCWe(OL8i) & & 
ALLOONE Re LCWeCO281)] # & 
BUSYLINE = LCW,CO381) # & 
IDLELINE « NOT BUSYLINE #2 
INITIATEDWHILEBUSY = LCW.COMt1)] # & 
SEQMODE = LCW.COS534] &# & 
EQUATED = LCW,CO681] & & 
DATAENABLED = LCWelO7TH1) # & 
INQUIRY ze LCW,CO881) #F & 
RESTARTNEEDED = LCWe(0983) # & 
WRITEASTERISK # LCW,.C10%1) # & 
FILESQK = LCWeCil#i) # 3% 
gqgodda. *# LCWeCi2ti] # &% 
BOWMSG * LCWeC1381) # & 
EQUMSG = LCWeC14t1)] # & 
RUNNING SB LCWeCISt1] # & 
COMPILING = LCWeC1681] # 2% 
LIBMINCE = LCW,C1791) & & 
ALLMCPMSG = LCW.C1385) # % 
DISCONNECTING = LCWel1881) # 2% 
BREAKORWRU = LCWeC1i9til # &% 
$45 $34 $47%50 
RESTART = LCW,el20t4) # %&% 
SAVEOWHILEINITBUSY # LCW,f2131] & & 
DOGLICENSE z= LCWe(228t1] # & 
LOGGINGON = LCW,C23t1) # % 
NODISKMCP =e LCWeC2433] # & 
CONTINUVEBIT » LCW,C2591) # 
MONTTORBIT * LCWeC2681) # 
NOSTOP = LCW.C2781) # 
SGCHEDULINE = LCWeC2891) # & 
SCHEDULINR #® REALCSCHEDULINE) # & 
NOSAVE = LCWe(2981) # &% 
ALLTHINGS = LCOWeC30tL8I# &% 
THINGSLAST eS LCWe(30806T# & 
THINGSLINK BS LCOW,LI68O6IH & 
THINGSTODQ © LCWel4226] # & 


3 

B = BOOLEAN &3 
R = REAL #3 
CONCISEBIT 


= OPTIONBITS «Citi l#s 


00019608 
00019610 
00019620 
00019622 
00019624 
00019626 
00019627 
00019628 
00019630 
00019632 
00019634 
00019636 
00019700 
00049800 
00019900 
00020000 
00020100 
00020200 
00020300 
00020400 
00020500 
00020600 
00020700 
00020800 
00020900 
069021000 
00021100 
00021200 
00921300 
00021400 
00021500 
00021600 
00021700 
00021800 
00021900 
00922000 
90022100 
00022200 
00022300 
00022400 
00922500 
00022540 
00022520 
09022530 
09022540 
00022550 
00022580 
00022585 
00022590 
00022600 
00022700 
00022800 
00822900 
09023000 
00023100 
00023200 
00023202 


AnH HA HHA HAH ts tt tt tt st tat Ht a ts a ta st Tt tH Ht 


0024 
0024 
0024 
0024 
0024 
0024 
0024 
0024 
0024 
0024 
0024 
0024 
0024 
0024 
0026 
0026 
0026 
0026 
0026 
0026 
0026 
0026 
0026 
0026 
0026 
0026 
0026 
0026 
0026 
0026 
0026 
0026 
0026 
0026 
0026 
0026 
0026 
0026 
0026 
0026 
0026 
0026 
0026 
0026 
0026 
0026 
0026 
0026 
0026 
0026 
0026 
0026 
0026 
0026 
0026 
0026 
0026 


re Pk 


juke 


t 


CONCISE s BCCONCISEBIT Dk, 
HELPFULBIT * OPTIONBITS.C2%1)#, 
HELPFUL = BCHELPFULBIT)#» 
QUICKLOGBIT = OPTIONBITS,C381lé, 
QUICKLOG # BCQUICKLOGBIT)#. 
QUICKBYEBIT = OPTIONBITS,C4tilé, 
QUICKBYE = BCQUICKBYEBIT)#>s 
ALLOWMSGBIT ® OPTIONBITS (S81) #s 
ALLOWMSG = BCALLOWMSGBIT) #,s 
CCLONGBIT * OPTIONBITS sf681)# 
CCLONG = BCCCLONGBIT)#s 
HELPTOGGLE e OPTIONBITS C74L)#. 
NORETRY * OPTIONBITS, C8811 #» 
UNLOCKTOGGLE = QPTIONBITS, COSA IH 

DEFINE LEFTARROW = "er #3 

DEFINE QMARK 3 12 #3 % 12 © 14 OCT ® QUESTION MARK 

DEFINE WORDS = "W" #2 CHARS # "CC" #3 

DEFINE INCCINC1)* INCL EM hie #3 

DEFINE UPS = SI $% SI + 1 ke 


UPD = OF $* DI # | és 
UPT @ TALLY &t# TALLY + 1 #3 


DEFINE INCBCINCB1) = INCB1 $3 BOOLEAN CREAL CINCBL) + 1) #3 
DEFINE DECRCDECR1) = DECRI t* DECRi = 1 #} 

DEFINE DECBCDECB1) = DECB1 t# BOOLEAN (REAL (DECB1) = 14) #3 
DEFINE MATCHOMATCH1 »MATCH2)= IF REAL CBOOLEANCMATCHY ) 


EQV BOOLEANCMATCH2)) 
® REALCNOT FALSE) THEN #3 


DEFINE COMPAR(CUMPAR1sCOMPAR2) »# 
REALCBOOLEANCCOMPAR1) EQV BOQLEANCCOMPAR2)) SREALCNUT FALSE) #3 
DEFINE TENS = 100000000 43 & TEN TO THE EIGHTH 
DEFINE GOERR(GOERR1 sGOERR2 )8BEGIN ERRSWESGOERRIS MSGPOINTERS 3% 
GOERR23 WANTS@WAITFORS803 TAMSaVERRORS GO EXITS ENDS 
DEFINE SCHEDERROR = 
BEGIN 


LINECLEARCLCWsAL*))3 SCWBASESSBASESSSBASES 
WORK[OJS@REALCNOT FALSE)3 MSGPTRIBQ3 
TAM $3 VTEACHERS DOINGS #13 
GQ TQ EXIT; 
END #3 
DEFINE SCRAMBLECSCRAMBLE1+SCRAMBLE2)=( #2x 
CCSCRAMBLE1,CIS2II+SCRAMBLELe (2482432 MOD MODULUS =< MODULUS + 
CSCRAMBLE2,C¥1$2314SCRAMBLE2.(24324)) MOD MODULUS 2+ 
CISKBOTTAM)#» 
--MODULUS#13#s DIRMODS169#3 


REAL SYSTEMS 


ARRAY SCANPTREOSCLUWORDS*SBASE))3 % POINTERS TO WORK ARRAY 
Ree ee ARETE E NE EEE EEE EERE ERENT REE EE  ee 
COMMENT DOCUMENT 


THE ARRAY TOBEDONE IS USED To STORE THINGS THAT HAVE To BE 

DONE FOR A LINE BUT MUST WAIT BECAUSE TRE LINE IS BUSY AND 

CANNOT HANDLE THIS INFO NOW, 

TOBECONTRUL = CONTROL WORD AS FOLLOWS 

346. * COUNT OF NUMBER QF ROWS USED, 

12336% BITS INDICATING ROW USED IF ON, BIT 47 # ROW O, 

EACH ROW CONTAINS? 

WORD O ® 336 & NEXT ROW WITH INFO FOR THIS LOGICAL LINEs 
128365 AND WORD TO TURN OFF BIT IN TOBECONTROLe 


00023204 


00023206 
00023208 
00023210 
00023212 
00823214 
00023216 
00023218 
00023220 
00023230 
09023240 
00023250 
00023260 
00023270 
00023300 
00023400 
00023500 
00023600 
00023700 
00023800 
00023900 
08024000 
00024100 
00024200 
00024300 
00024400 
00024500 
00024510 
00024520 
00024600 
00024700 
00924800 
00024810 
00024820 
00024830 
00024840 
00024850 
00024860 
00024870 
00625000 
00025100 
00025200 
00025300 
00025400 
00025500 
00026000 
00027000 
00027110 
00027120 
00027130 
00027140 
00027150 
00027160 
00027170 
00027180 
00027490 
00027200 


AM ttt tt Ht Ht tt ot to a tt 


s @ 


' 
€ PAcsie Pusiress Farms, inc. Henees 


| 
} 
1 
i 
i 


is15= 10 WORDS INPUTDATA AND 5 WORDS UF EVENTS INFO, 


; 
REAL TOBECONTROL3 


REAL ARRAY TOBEDONE (013520820)3 
Tee TTT ESET CPCS SECT EEE eer e rece Te cece cLicrrrecercrrerey Ts | 


BEGIN &% TO SEGMENT THE INIT CODE. 


PPP Pere PPPS CLP TEEPE ere Pee PCC CCST TTT TTL OLCTTLirrrirrirriries 3 


PROCEDURE DISKIO CREASON) " Z387@REASON NOs 40868 LOGICAL LINE. 
*CREADFLAG) " 1 = READ» O 8 WRITE, 
"CA) " DISK I/0 AREA, 
“COFFSET) “ OFFSET INTO 1/0 AREA, 
"(SIZE) " NO OF WORDS TO READ/WRITE, 
"COISKADDRESS 23 
% 
VALUE REASON*s READFLAGs OFFSET» SIZEs DISKADDRESS3 
REAL REASON? READFLAGe OFFSETs SIZE? DISKADDRESS3 
REAL A3 % ARRAYCO] + OFFSET = AREA WHERE I/0 STARTS, 
ZNOTEX & IF OFFSET NEG O THEN AtOFFSET@"31 GETS DESTROYED, #4 


COMMUNICATE (1)3 


IPPC E CECE SCC C CSS ES LEE SLE Le Tee LEC STS T ETL TET TCL ETS L IPT TTT LrriTiriiiTT 


REAL cOMM2s &% USED TO STORE cOMMUNICATEC*2) TO RELEASE CODE SEGMENT 


Bie EER ee ERE EEN EEE EERE EERE ER RRS 


PROCEDURE NEXTEVENT CWAITBIT*CLOCKs Ads % ALOJ* OFI@FLAG BIT © QO, 
% a LEL*SIGN BIT & QO, 

REAL WAITBITs CLOCK3 & 272°00 NOT TOUCH, 

ARRAY ACLO]3 % L8t7"REASON NO, 


BEGIN LABEL DUMMY; 


COMMUNICATE (#2)3 | 294B"LOGICAL LINE. 


END3 


COMMENT % : 
WHEN THIS PROCEDURE IS CALLED! 
WAITBIT MUST BE 1 IF WE WILL WAIT FOR AN EVENTs 
Eaten colin yh etna! asc Q IF WE DG NOT WISH TQ WAIT, 
WHEN THE MCP RETURNS TO THE PROGRAMS 
WAITBIT WILL BE 4 IF AN EVENT IS BEING RETURNED» 
O IF NO EVENT AND NO WAIT? 
PPP CES CPP eee CPPS TST CICS TeLTecLrrcerererrrerreicerrrirrerery | 


REAL PROCEDURE GETESPOISK} COMMUNICATE (#3)3 


OES PEPE SCPC ST eS CPST CLE CS CI Pe LITLE LTTTATTL LITT Lirrrririerers | 


PROCEDURE FORGETESPOISKCADOR)3 VALUE ADORS REAL ADDR COMMUNICATE("4)3 


00027210 
00027220 
00027300 
00927400 
00027500 
00029900 
09830000 
09030100 


START OF SEGMENT 


00030200 
00030300 
00030400 
00030500 
00030600 
00030700 
00030800 
00030900 
00031000 
00031100 
00031200 


00031210 
00031220 
00031300 
00031400 
00031500 
00031600 
00031700 
00031750 


START OF SEGMENT 


4 


Is 


00031800 
00031850 


coe ee ee ee ee ee ee ee ee ee ee 


T 
T 
T 
T 
T 
T 
T 
T 
* 
T 
T 


1 LONGs 


00033900 
00032000 
00032100 
00032200 
00032300 
00032400 
09032500 


00032600 
00032700 


00032800 
00032900 


An HAH 


0029 
0029 
0029 
0029 
00314 
0031 
0034 
0034 


weehbeking 


0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 


0004 
00014 
0004 
0001 
Q004 
0004 
0004 
0001 
ketthihen 
0000 
0000 | 
NEXT SEG 


0004 
0004 
0004 
0004 
0004 
0004 
0004 
0004 
0004 


0004 
0004 


3 


3 


e ®@ 


no. $v 


B 


nore 


Bite ee ee eR RE EEE REE EKEKEER ENN EEDKE HERES 


PROCEDURE REQUESTINPUTCBUFF)$ ARRAY BUFFCOJS COMMUNICATE( #5)3 


OOS ECETELECIES EC SAS SERRE EE SE ESOC SESE S RCC E LEC ESE RSE EEE EE ESET ESE S EE Lp | 


& REAL PROCEDURE GETUSERDISK (NJ) VALUE NZ REAL NS COMMUNICATE (°6)3 


he ee REE REE EERE AEE EE ENE 
PROCEDURE FORGETUSERDISK CAsN)3 VALUE AsN3Z REAL AsN3 COMMUNICATE (°7)3 


+ OC RC CPESACCACC OCCA PSE SESE S CES CSE CCE ECSE ESAS EES EPC ERE EERE EET | 


PROCEDURE DISKWAITCIQsAREAsWO0Ss ADDR )3 


VALUE LQsWDSsADDR3 
REAL TOQOsWOSsADDR3 
ARRAY AREA(O]3 


COMMUNICATE ("6)3 


OR PRESOCESESE PECL ES ECS E SEE PEE SES SEEPS ER ES ELEC SESS SES ESE SEC LE REL ELS | 


% PROCEDURE CONTROLGARD CReA)S VALUE RS ARRAY ALO} REAL RI 
x COMMUNICATE €*9)3 & REASONSRe C3387] 5 LLER.C4038) 
TTC ETESTEPTE ETE LITTER TLIC TEI ILL iit | 
& PROCEDURE SETUSER (CODE)3 VALUE CQDEs REAL CODES COMMUNICATE (¢"10)3 
he a a ER EEN EERE RARE ENTER NEE eS 
DEFINE DISKOUTCDISKOUT1s¢DISKOUT2)& % 
DISKIOCLL&1303324137) s0*WORKCO] 20s D0ISKOUT2s0I1S5SKOUTI #3 
 RETETETLIETTT ETE LILI TE LILLE} 
DEFINE DISKWRITECDISKWRITEL) = % 
DISKIOCLLAL3ILC3IIL4Ls7 1,002 WORK(CO] 200230207 SKWRITEL) #3 

ETE TEPE LETTE LIELALITET TELL ETLITLIE LTT Lii 
PROCEDURE TwxXOyuT (ReAsNoT)3 VALUE ReNeoT3 REAL ReAsNo TS 

IF NOT DISCONNECTING THEN % WRITES ARE Ooke 

COMMUNICATE (€912)3 & TeCFa# OF LFSsTeFFs1 FOR NO CR 


TET ETTCE LITT e LTCC Tei Ti cei Pete Tei P ire circ ere iar ers. | 
REAL LITOUTSTORES % KEEPS CHARACTERS BEING QUTPUT BY LITOUT 
ToC P TIO TTOP TS TCP TT PEP Tice Cire er Eee c reece eT Sere Tee cries S| 
PROCEDURE LITOUT (XeCRIS VALUE XeCRS REAL XaCRI 
CECE TECISTIST CELIAC ILI ISTIC T Ti TTT ee T crete eri ier ele t ee 2 

BEGIN 

STREAM PROCEQURE BLANK(XsY)3 


BEGIN 

Sy!sx3 DIFF OStewOSs DISD 96s SIssSI1"G3 

FcIF SCA"QO" THEN JUMP OUTS OSSSLIT” "3 STleaSleids 
END3 


00033000 
00033100 


00033200 
00033300 
00033400 
00033500 


00033600 
00033700 
00033600 
00033900 
00034000 
00034100 


00034200 
00034300 
00034400 
00034500 
00034600 
00034700 
00034800 
00034900 
00035000 
00035190 
00035200 
00035300 
00035400 
00035500 
00035600 


00035700 
00035750 
00035775 
00035800 
00035900 
00036000 
000360350 


START OF SEGMENT 


00036100 
00036150 
00036200 
00036250 


44 


44st 


oe ee 


ee i ee ee ee 


T 
T 
T 


T 
Ml 
T 
T 
T 
T 
7 
ae 
T 


0006 
0006 


0007 
0007 
0007 
0007 


0008 
0008 
0008 
9008 
0008 
0008 


0009 
0009 
0009 
0009 
9009 
0009 
0009 
0009 
0009 
0009 
9009 
0009 
0009 
0009 
0010 


0034 
0011 
0011 
O01} 
0011 
0014 
0034 

eekke kee 
9000 
0000 
0004 
0004 


hg F a ‘ » 


BLANKCXs LITOQUTSTORE)3 
TWXOUTCLELs LITOUTSTOREs Bs CRI3 
END LITOUTS 


EEC E COPE SESE STS SIS SESE EES SEES CP CEC TeL CCC ESC LSS Se. 2S | 


PROCEDURE CG15 (ReFeNoLoyeToX)3 VALUE RoFoNelLoyeTeXs 
REAL ReFaNeoloUe Ta X3 
GOMMUNICATE (#15)3 


DEFINE COM15(COM1525COM1525COM1535COM15945C0M1555COM150) 
#0015 (COM1510COM1522COM1532COM1549COM1555COM{5600 #3 
DEFINE cCOMIS7=s¢cCi5#3 
Ree ee ee EEE EEE ERAN aR RETAKE KKERNKREAENRERECENEEERY 
DEFINE FINOCFINOA oF IND2eF IND3SeFIND4s FINDS) 
wCOMISCFINDIsFIND2sFINDSsFINOSs FINDS #15) #3 
FOF BZ FORGE R EASES SSMSRSO HR TSAR M AFT HSERTHA REHEARSE HREH SHEE THRO MO SAETARNRee 
COMMENT*"ON RETURNS 
EVENTSC1ij* PROTECT CODE CSAME AS ALGOL SEARCH) 
C23e0181924 INTERLOCK 
0618815)" HEADER ADDR 
003686)% FILE TYPE 
ef42%86]% OPEN COUNT 
C3]= EGF CQUNT 
C4)= ADOR OF 1ST RECORDS 
Ree ETEK ERT EERE ERNE KER EEE HET ERH KEKE EER 
DEFINE MAKEFILE sCOM15#3 
% EVENTSCiJ= ADDR OF 15ST RECORD 
% EVENTS£C2)]= HEADER ADOR 
Be ERE EEE ER EEE RERERERHEEMAREHERA HE 
DEFINE STAATUSCSTAATUSLSSTAATUS2*STAATUS3*STAATUSSG)# 
CCASCSTAATUS1 91392 STAATUS2s STAATUS3ISSTAATUSH 9 020) 83 
% ON RETURN? 
% EVENTSCIJsPROCESS TIME ¢€ #1 IF NOT RUNNING ) 
% EVENTSC2Ia10 TIME 
® EVENTSC3I]@CONTENTS OF R27 € IF COMPILING ) 
Re EKER EET EMER ERERERAE ENE ERE 
PROCEDURE LOGON (LOWsA)# BOOLEAN LCWS ARRAY ALO 
BEGIN LABEL DUMMY} 


LOGGEDON %* TRYES 
LOGONTIME $= TIMEC1)5 % SAVE START TIME, 
ESP1 3% GETESPOISKS ESP2 $= GETESPDISK3 

IF NOT SCHEDULINE THEN &% LET SCHED CALL LOGONe 
COMISCLL&1303384187 162 eUSERCODE sCHARGE sOsITOLETIME)3 
END \1QGON3 


TRC RCC E SACS TCCCOLCLSAL ESSE SOLS LIC LICE SCCICL CLITA TTT TT 


i) 


00036300 


00036350 
00036400 


T 
T 
T 


0004 
0006 
0007 


8 LONGs NEXT SEG 


00036500 
00036600 
00036700 
00036800 


00036820 
00036840 
00036860 
00036900 
0037000 
00037100 
00037200 
00037300 
00037400 
00037500 
00037600 
00037700 
00037800 
00037900 
00038000 
00038100 
00038200 
00038300 
00038400 
00038500 
00038510 
00038520 
00038530 
00038540 
09038550 
00038560 
00038900 
00039000 
00039050 


START OF SEGMENT 


6 


IS 


00039100 
00039150 
00039200 
09039290 
00039300 
00039400 


14 LONG 


00039500 


4444 


T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
ul 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
* 
T 
T 
T 
T 
T 
T 
a 


T 


0011 
0011 
0014 
OO14 


0043 
0043 
0043 
0013 
0013 
0013 
0013 
0013 
0013 
0013 
0013 
0013 
0013 
0013 
0013 
0013 
0013 
0043 
0013 
0013 
0013 
0013 
0013 
0013 
0013 
0013 
0013 
0013 
0013 
wo¥thenkan 
0000 
0002 
0004 
0007 
0008 
0012 
NEXT SEG 


0013 


3 


6 


3 


TENE 2 motto hy nS 


PROCEDURE LOGOFFC(LCWsA)% BUOLEAN LCWS ARRAY ALO]3 


BEGIN LABEL DUMMY; 


IF LOGGEDUN THEN %ESP TO GIVE BACK, 

BEGIN LOGGEDON ta FALSE 

IF ESP1 NEQ@ O THEN FORGETESPDISKCESP)3 

IF ESP2 NEQ@ 0 THEN FORGETESPDISKCESP2)3 
COMISCLLGISL33F4197 ) s2eUSERCODEs CHARGE sCit41J2423000)5 
END IF LOGGEDON; 

ENQ LOGOFF 


AUIS IOI III IOIIOIIIOIIGOI IG Uk tee eee eee eke 

DEFINE SCHEDGOTOCSCHEDGOTOL)= 
COMISCLLSIICISIGIE7 Jo DeSCHEDGOTOL202000983 

PPP PTI S PCE ESE e ET Pee eer TEST COT TCC TTC LCLIOCTTCITCrrrrereriy 

DEFINE REQUESTIPCREQUESTIP1 >= 
COMI5CREQUESTIPLALI3C 3384497) 54000200 000) #5 

AI IDI INI IDIIIIIIIUIOU Uni bk ek itntnie 

DEFINE SCHEDSTATCSCHEDSTATI)& 
COMISCLLETAMESSS4LI7 odie SCHEDSTATIZUSERCODE? 020283 

ithe CPE TST CS TEST OSSTOSTOCTCCO LCCC LT TTT TT 

DEFINE SCHEDSTOPCSCHEDSTOP1)= 
COMISCLLGIAME 3384187 )512sSCHEDSTOPI»USERCODEs 020) #3 

PCP eee ES ee eee CTCL CTCL ECLIPTIC LETT LTLriTrTe 


PROCEDURE DISCONNECTED(LLDS VALUE LES REAL LL3S COMMUNICATE (946)3 


PROCEDURE RUNYOB(L»AsD)3 VALUE 4203 REAL L»AsD3 COMMUNICATE( #19)3 


PROCEDURE READTAPECRsNoF sUSVALUE RoNoF U3 REAL RoNoF 03 
COMMUNICATE C#15)3 


; EPPS CLO ESS STC S SLL SPST Tee errr rerrerrecrerrrrceccrerererrerrerer ss 


DEFINE REMOVEFILECREMOVEF ILE! sREMOVEFILE2sREMOVEFILE3)« 
COMISCREMBVEF ILE Ls 3+REMOVEF TLE 2*REMOVEF ILE 32020783 

SEPP Ere Pree eee Peer TCLS eT eTerrricrrerrrcrreerrrrreererrreres 

DEFINE CHANGEFILESCHANGEFILES »CHANGEFILE2,CHANGEFILE3S» 
CHANGEFILE4 + CHANGEFILES @CC1S (CCHANGEFILEL25*CHANGEFILE@s 40518" 
CHANGEFILE3sCHANGEFILE4S »CHANGEFILES sUSERCODE) #3 20518° 

CPP PPP Cece EPS e Te LoL CST TC LCCC CSCC TOTS TCLS T TCT T TTT Tee Tree 

DEFINE REPLACE CREPLACE) pREPLACE? sREPLACE3»REPLACEG »REPLACES sREPLACEO)= 
COM1IS7 (REPLACE {2 4sREPLACE 2eREPLACE 3eREPLACE Ms REPLACES» REPLACE 6) #3 

IPSC S IPSS iP Lee ee rarrrerererrrerriTerrrer ss 

DEFINE SECURE (SECURE LsSECURE2sSECURE3»SECURES) & 405160 

COM157 (LLaia C3I9P4LI7 so 7eSECURE1 *SECURE2sUSERCUDEs SECURE 3s%0516" 


i) 


00039600 
00039610 


START OF SEGMENT 


00039620 
00039700 
00039600 
08039900 
08040000 
00040050 
00040100 


15 LONG 


00040200 
000460205 
00040210 
00040215 
00040220 
00040225 
00040230 
00040235 
00040240 
00040245 
00040250 
00040255 
00040260 
00040300 


00040400 


00040500 
00840600 


00040700 
00040800 
00040900 
00041000 
00041100 
00041200 
00041300 
00041400 
00944500 
00041600 
00041700 
00041800 
00041900 


T 
T 


0013 
0013 


eeaeevewae 


ad tt te 


tt et 


44 


OU 4 st ts 


0000 
0000 
0003 
0006 
0008 
0013 
0033 
NEXT SEG 


0013 
00143 
0013 
0013 
0013 
0013 
0013 
0043 
0013 
00143 
0013 
0043 
0043 
0013 


0014 


O015 
0015 


0016 
0016 
00146 
0016 
0016 
0046 
0016 
0016 
0016 
0016 
0016 


0016 


7 


3 


SECURE4) &3 40516" 
ete ae HW eA OM STOR RO ETRE EERE EE REN EEO 
PROCEDURE CCCOMCLLeUCsC)S VALUE LLoyCeCs REAL LLeuceC3 

COMMUNICATEC#17)4 % CARRIAGE CONTROL COMMUNICATE (C#1sL0NG) 


Se ik i kt te Wie ee TO Ra RR EER EE 
BEGIN % TO SEGMENT THE NEGATIVE COMMUNICATES? 
OTT eee C ECCT CC PSEC TL CT CET SSeS CPC LTT TCT cere TCT i Cecrre rir. . 2 


STREAM PROCEDURE MOVE CNI"NO OF "CWC)*WEWOS, CaCHR FROM"CAD" TO "(B)3 


Bw ee ERE ETRE E EEE eee 
VALUE Ns WC 
BEGIN 
LOCAL T3 
ST*LOC N3 SleS]#6s DleLOc Ts DLe©DI +73 DS*CHRS 
DI© Bd SI*#LOC WOR SI+SI 47; 
IF SC# "W" THEN 
BEGIN Sle As’ DSe N WDOS3 
TCDS¢32 WOS$ DS*32 WDS)3 
END OF WORD MOVER 
ELSE 
BEGIN Sle A} DS¢ N CHR: 
TCDS*32 CHR# OS*32 CHR)S 
END OF CHAR MOVER 
END OF MOVE; 


TREE TELLFELT ESET STEELE LELITLALELA LIE LELLEELALLALLELAELLLLELiririt 
STREAM PROCEBURE BLANK(X)3 
p SPRUE PUELASERC CSCO LAS CORSE LE SECLLESCSESLCSAS SEALER SSSCCLAOSSOSLLSEL TE SY 
BEGIN 
BIlesX; Sex; 
7CIF SCm"QO" THEN ELSE JUMP OUTS DS3SaLIT” "3 UPS3) 
END STREAM BLANK} 


CPT SPE PE SIC CST CPPCC E Se TELS CITC CTCL TEST LCCC CSCC T STILL aris tS | 
INTEGER STREAM PROCEDURE DECCONV COCTV)3 
VALUE octvs 

BEGIN SleLOC OCTVS DIe*LOC DECCONVS DSe8 DEC 

ENO OF DECIMAL CONVERTS 


SY RESRRESELECEACESASASS CO CSESOSCLOCCOCSCOCLCCOCSCLAICCVSLIC£CCLCCCCSLELLCS LILES SY 


PROCEDURE FIXUSER CONTReAsEXITsBUMPCNTR)S VALUE BUMPCNTR3 30501° 
INTEGER CNTR# ARRAY A [03 40501" 
-LABEL ExXITs BOOLEAN BUMPCNTR3 40501° 
BEGIN %0501° 


00042000 
09043000 
00043100 
00043200 


00049700 
000496800 
00849900 
00050000 


START OF SEGMENT 


00050400 
00050200 
00050300 
00050400 
00850500 
00050600 
00050700 
00050800 
00050900 
00051000 
00051100 
00051200 
00051300 
00051400 
90051500 


00051600 
00051700 
00051800 
00051900 
00052000 
00052100 
00052200 


00054300 
00054400 
00054500 
00054600 
00054700 


90054702 
00034704 
00054706 
000547908 
00054710 


AHAAHHH HHS te HH 4H 44-4 9 


Se | | 


aoOaIon 


0016 
0016 
0016 
0016 


0017 
0017 
0017 
0017 


eeethnkiw 


0000 
0000 
0000 
0000 
0000 
0004 
0002 
0002 
0003 
0008 
0005 
0005 
0006 
0008 
0008 


0008 
0006 
0008 
0008 
0009 
0009 
0011 


0042 
012 
0012 
0012 
0013 


0014 
0014 
0014 
0014 
O04 


Moore Business + 


: 2 ing.s cimt, Inc. sv 2 


, 


REAL WORB3 %0501° 00854712 ¢ 0014 
START OF SEGMENT wawkttaden 9 

INTEGER Ie TBY6eLENGTHS 40501% 06054714 ¢ 9000 

INTEGER STREAM PROCEDURE COUNTZERO (A)3 VALUE A3 40501° 00054716 ¢ 0000 

BEGIN 40501° 000547418 C 9000 

SIt#Laoc A# TALLY& #03 40501" 00054720 ¢ 0000 

8 CIF SC EQL "0" THEN BEGIN UPS3 UPT END ELSE JUMP OUT)sS &0501% 00054722 ¢ 90000 

COUNTZEROt@TALLY3 30501" 00054724 c 0004 

ENO OF COUNTZERQ3 2050t° 00054726 c 0004 

IF CWORDS#A CINC (SREG)}),C6385) EQL O THEN 20504° 00054728 c 0005 

BEGIN 30501° 09054730 ¢ 0009 

WORDS aDECCONV CWORD)} %0501° 00054732 ¢ 9009 

IF LENGTHERA CINGC CSREGI)e0323) EQL O THEN 30501" 00054734 ¢ OOQ14 

GOERR CWORD?8)3 40501° 00054736 ¢ 0014 

IF T#sB*COUNTZERO CWORD) > 6 THEN 430501" 00054738 ¢ 0020 

GOERR (WORDs8)3 *0501° 00054740 ¢ 0022 

IF I €QL O THEN Ita13 40501" 00084741 ¢ 9028 

IF LENGTHS SI+LENGTH > 7 THEN 40501 00054742 ¢ 0030 

GOERR ¢WORD?8)3 ’0501° 00054744 ¢ 0032 

TBYOts] x 63 405017 Q0054746 ¢ 90038 

A CSREG]#20 & WORD (63 48@IBY6ITBY6) & 20501" 00054748 Cc 0039 

A CSREG] [64 BY6O%68C7"1 x6) & LENGTH (€384583)3 %0501° 00054750 ¢ 9042 

DECR (SREG)3 40501" 00054752 ¢ 90047 

IF BUMPCNTR THEN 40501" 00054754 CC 0049 

INC CCONTRQ 40501" 00054756 ¢c 9049 

END 205048 00054758 ¢ O0S1 

ELSE %0501° 00054760 ¢c 0051 

DECR CSREG)3 %0501= 00054762 c¢ 0051 

END OF FIXUSERS %30501° 00054764 ¢ 0053 
9 IS 56 LONG» NEXT SEG 8 


URES EOOCSESCEESESS CLES ERE SEES EAE EERE ERE SESE E EES EERE ESSERE SESE EES REESE S| 00054800 T 0014 
PROCEQURE BLACKOUTS 00054900 T O01%4 
De EERE HEE TERE HERRERA EEE NEWER 00055000 T Q014 
BEGIN REAL T3 00055100 T O00%4 
START OF SEGMENT «eeektatan 10 

STREAM PROCEQOVRE BOCT*#W)s VALVE [3 00055200 T 9000 
BEGIN 00055300 Tr 0000 
SytBLoc ys SIRAST 473 Opsaws DSHACHRS 00055400 T 9000 
7C(STt35~74s OSSsCHR)} 00055500 T 0004 
EnD STREAM PROCEDURE 803 00055600 r 90002 
FOR peePMMsrnrerar srs ,"e” DO 00055700 T 0002 
BEGIN 00055800 T 0013 
BOoCT»WwORK)3 00055900 YF 0013 
TWXOUTCLL* WORK EO] +8eCR)3 09056000 T 90014 
END} 000956100 T 0016 

. 9 * a ‘ e . ‘ * : 


| 


END PROCEDURE BLACKOUTS 


ES ESESELICCSI CCC SELES ELEC SSPE LCC CO CTCL CLOCCESLCC CASS CEL CS SES. P| 


STREAM PROCEOURE GLEARCAsN)3 VALUE NA 
Re ee EE REE ENE EE 
BEGIN 
COMMENT CLEARS A * N WORDS STARTING AT A # 13 
DItsAs DSB LIT "0000"5S SI%eAS OStBN WOSS 
END CLEARS 


PET EC ITE TCC CCCI TICE ICI T OTOL CTS TEL TI TTT r rr errr Tie iT eres 
STREAM PROCEDURE TIMEUSEDCWeHMSTX)3 VALUE HMSTX3 
Pee eeTTOSeT CSIP ECCS OPCS EP Tere Perec reer Teer eee eer eT eee 
BEGIN LOCAL Sv3 

DIsens ST8elL Oc HMSTX; 

OS3s2 CHR OSts6 LIT " HRSs 3 

DSte2 CHRS OStu6 LIT " MINe 5 

DSis2 CHR# OStei LIT "45 

OStsi CHR & OS8s5 LIT * SEC,%3 

DSts25Lit" "3 

DIt#Ws OSt*1BFILL  Svseol; 


ST#eSVs DIteWs DSESLIT” "5 OSte25CHRE OStSLIT LEFTARROWS 


& VOID 
END TIMEUSED3 


Ti IIIS OI ia Rt nn tke 
STREAM PROCEDURE TIMEOFDAY(WeHMSTXI3 VALUE HMSTX3 
PTT CC SPC SE TIT CTT ATTA IS CCST LITT LOSerrrIcrrrriricrrreriret ts ft 
BEGIN 
DIssWs OStal IT" "4 STss_LOC wMSTXS 
DSte2 CHR# OStalIT "#3 OS8e2 CHR; 
ST teS]+33 
IF SCa"A" THEN 0S844 LIT" AM,” ELSE O0S824 LIT" PM,™3 
DItsWs OSHe2F ILLS 
END TIMEQFDAYs 


PEPE IT TLIC CI LITT T ITIL IT TTT TE LET i TTT EL Tice r cre ceric i ci eit iret f 

REAL PROCEDURE TIMECONV(OTsB)3 VALUE TeBs REAL TS BOOLEAN B3 

TEE ITEC CS ESIC CPCI T cece rice c rc raer rrr cr Tere r er erc icici tere! 
3 BEGIN 

REAL AP3 


INTEGER HRSs MINe SECs TSEC} 
REAL STREAM PROCEDURE STCHeMsSeTeX)3 


10 IS 


00056200 


7 0017 


20 LONGs NEXT 


00056300 
00056400 
00056500 
00056600 
00056700 
00056800 
00056900 


00057000 
090571400 
00057200 
00057300 
00057400 
00057500 
00057600 
00057700 
00057800 
00057900 
00058000 
00058100 
00038200 
00058300 


00858400 
00058500 
00058600 
00058700 
00058800 
00058900 
00059000 
00059100 
00059200 
00059300 


00059400 
00059500 
00039600 
000359700 
00059800 


START OF SEGMENT 


00059900 
00060000 


0014 
0014 
0014 
0014 
0015 
0015 
0017 


oe 


0037 
0017 
0017 
0017 
0018 
0018 
0019 
0024 
0024 
0023 
0026 
002? 
0029 
0029 


AAHsAHs 4et 


0029 
0029 
0029 
0029 
0030 
0034 
0032 
0032 
0034 
0035 


at a tt a ae 4 


0035 
0035 
0035 
0035 
0035 


A444 


wewO ede dae 


T 9000 
T 0000 


8 


11 


wed 


BEGIN 


BIleelLOC ST3 SIsaH3 OSte2 DECA SIt=mMs OSte2 DECI 


ST¢#53 OSte2 DECS SLteTs OSs3"1 DEC 
SIsaxs STtsSI+75 DStFCHR} 
ENO STREAM STi 


HRS t% T DIV 2160003 

MIN $#(T DIV 3600) MOD 603 
SEC #2(T OLIV 60) MOD 603 
TSECtacy OIV 6) mMQO 103 


IF HRS GTR 11 THEN APS® "Pp" ELSE APts "AN; 


IF HRS GTR 12 THEN HRSt#HRS#423 
IF B THEN IF HRS 49S O1 THEN HRSt= 123 
TIMECONVESSTCHRS» MINS SECs TSECSAP)S 

END TIMECONV3 


+ ORS ET OSES OSES CEE LACE PEE e EE Tere eT CAPT eT TCS CST CTCL SL eCS TLL rT. YS 


REAL PROCEDURE MAKEFNCFT#LL)3 VALUE Lier TS REAL LLeFT3 


SCE RSCEPUSIECCASCSCLLA SSO CLSESCSSSLELLSIOOCTOLCCCLSASTALALLCLALALICLALLCCALLLLLLinT 


BEGIN 
REAL STREAM PROCEDURE FNCFTst Ls VALUE LLoF T3 


BEGIN 

STeelaocg FT3 SLltweSl+53 OL tmLOC FNS DS8e3CHRI 
SrtsLOC Lbs DSIm3DECS DSte2LIT” "; 

END STREAM PROCEDURE FN3 


MAKEFNSSFNCF To CLLSSYSTEM) 3 
END PROCEDURE MAKEFNs 


p SCE P EP EPEC EPEC OSE EE ESE EEE TEPC P ee TPC CCC SEL rere rss | 
PROCEDURE GHKPT CA)3 ARRAY ACO); 
ROE ae EEE EE EEE EHEHEHEERE RHR EHEEEK ER HEE 


BEGIN LABEL DUMMY} 


RLCW t# REALCLOW)S % SAVE TOGGLES IN STACK 
MOVE (40 sWORDS sACTBASE) pWORKCAOXTPREC))3 
DISKQUTC TROKADR»s LOxTPREC4+40)3 


sepa ede ered END CHKPTS 


00060100 
00060200 
00060300 
00060400 
00060500 


44454 


00060600 T 
00060700 7 
00060800 T 
00060900 T 
00061000 1 
00061100 T 
00061200 T 
00061300 T 
00061400 T 
ii 1s 28 LONG» 


00061800 
009061900 
00062000 
00062100 
00062200 
START OF SEGMENT 
00062300 
00062400 
00062500 
00062600 


re ee ee | 


00062700 T 
00062800 T 
12 «IS 8 LONGs 


00062900 T 
00063000 T 
00063100 T 
00063200 T 

START OF SEGMENT »* 
00063210 T 
00063300 T 
00063400 T 
09063500 T 

13 1S 12 LONGs 


0000 
0000 
0001 
0002 
0003 


0004 
0005 
0007 
0008 
0010 
0015 
0018 
0024 
0023 
NEXT SEG 


0035 
0035 
0035 
0035 
0035 


ka HE 


0000 
0000 
0004 
0002 


0003 
0005 
NEXT SEG 


0035 
0035 
0035 
0035 
aE eeee 
9900 
0004 
0005 
0011 
NEXT SEG 


8 


l2 


8 


13 


8 


s-s Forms, lec s 


: 
x : AAcore Siiwmecs Fors 


F 


t 
: 
| 
t 


ROW Re ea EW ERA EEA EEE EKER ee 


PROCEQURE CANCELCKPT(A)$ ARRAY ALO]3 


BEGIN LABEL DUMMY 
RLCW 3% REALCLCW) & SAVE TOGGLES IN STACK 


TABLEINFO $a Q3 
ALTBASE+16) 33 TENS; 


MOVE (30sWORDS*ACTBASE +10) »WORK(0O))3 


DISKWRITECWRKTBLADR)3 


END CANCELCKPTS 


CREE CEP OSES ECCLES SESE CE SEES SEES LCS STS LCLCCCCCCCLCCCLOCLC CCCI CLALIT LET 


REAL PROCEQURE DATECQNV(DATE)S VALUE DATES REAL DATES 


Ree ERR EE EEE EER ERE EERE REE ERAERERENH EEE HERES 


% 


BEGIN 
REAL MsDa¥s ARRAY L(O815]3 


INTEGER STREAM PROCEDURE OCTCONV (DECV)3 

VALUE DECV3 
BEGIN SdeLOC DECVs OL*LOC OCTCONVs DSea ocT; 
END OF OCTAL CONVERT: 


MSeDECCONYCDATE)S DtsOCTCONV(M,CIQ31 gI)s YSOCTCONV(M,(C16812))3 


IF 0 GTR 60 THEN IF Yel46!2] NEQ O THEN D8 =0o13 
YeaM,C18012)3 MiaO3 DO MimeM+i1 UNTIL D LE@ LEM) OR Ma123 
DIsDECCONVCOMLEMTII)DS MiepECCONV(M)3 

DATECONV! 3"0/00/00 "GME 1837911IJ80018336812)8Y(368396812)3 
END PROCEDURE DATECONV: 


PH aHee et PHe teat eHeHeeetenne se ake es eee tea eeHeeeeeereReeneeeheoneenneoegne 


OOH HHHE RHE RHH Pe HHEHHARHHR OCHRE HR RHPA HEB OROMHM ERE H ROH ReeHeteener 


FILL LO*) WITH 9434960594 912191525 182221392445 274 9305433553663 


Bw RE TRE REE HRAEE ERE ETER EKER 


PROCEDURE EILESAWAY (OBJTOOsUSERCQDE)S VALUE OBUTOOs,USERCOUES 


BOOLEAN OByTOO4 REAL USERCQDE; 


303277 
40527 


CECE TRC TEL TCSP SL eS e Te TCL CEST CSCC CCC ECCT ALITTLE CTT TLL TTT 


BEGIN 
REAL TisTes 


Tae. & 13. C33t4LI7 75 
REMOVEFILE (CTleT2SeMAKEFN ("1S5%seLL »USERCODE)3 


IF OBJTOO THEN REMOVEFILE (T1sT2,06836) ,USERCODE)3 


REMOVEFILE (TieT2 & "P* (1234286) 2USERCODE)3 
REMOVEFILE (TlsT2 & "T" £€1284226),USERCODE)3 


40527" 
305270 


40527" 
0527" 
305278 
40527° 
40527 


. e 

00063600 T 0035 
00063700 T 9035 
00063800 T 0035 

START OF SEGMENT weeettatne 
08063610 T 9000 
00063900 T Q004 
00064000 7 0002 
00064100 T 0004 
00064200 tT 0007 
00064300 Tt 0010 

14 18 12 LONG», NEXT SEG 
00064400 T 09035 
00064500 7 0035 
00064600 T 0035 
00064700 T 0035 
00064800 T 0035 

START OF SEGMENT euateeaewe 
00064900 Tf Q004 
00065000 T 0001 
00065100 tr 0001 
00065200 T OQQ04 
00065300 fT 0003 
00065400 7 Q004 
00065500 7 Q004 

START OF SEGMENT #euettaews 

16 IS 13 LONG, NEXT SEG 
08065600 T 0006 
00065700 T 0013 
00065800 ft 0017 
00065900 rt 0023 
00066000 Tt 0028 
00866100 T O032 

15 IS 39 LONG» NEXT SEG 
00066150 ¢ 0035 
00066200 ¢ 0035 
00066225 ¢ 0035 
00066250 ¢ 0035 
00066300 c 0035 
08066350 ¢ 0035 

START OF SEGMENT «eeatwtoten 
00066400 c 9000 
00066450 ¢ 0004 
00066500 ¢c 0008 
00066550 c 0006 
00066600 ¢c 0012 


14 


8 


15 


16 
15 


8 


17 


Sten 
y2t2 


ems, inc. sv 


near F 


sre Bo. 


faa 


: 
oe ®@ 


REMOVEFILE (Tl»oT2 & "Q" [1284286] USERCODE)S %0527= 00066650 ¢ 
T2,CI6t12) tas 40527" 00066700 ¢ 
REMOVEFILE (TleT2 & "P™ (1234216) ,USERCODE)3 405279 00066750 ¢ 
END OF FILESAWAY3 20527 00066800 ¢ 


17 IS) 26 LONG» 


OEE E ESE CSS CESSES Ser rere re rerrrrerrrrrrrrrrrrirrrrrrrrrrerrs 00066900 T 
DEFINE MAKEDATE # 00067000 T 
DATE PR"/OO0/00MRCDATESSTIME(S) CISL SSLAIADATELISS2ASLAIGDATEL 36836812743 00067100 T 
, eked Eelekek Relieheh Aebehed tehdehedeheteheieded ttt th te te LEELA L ELE LLL E LLLP Terriiit 00068700 T 
REAL STREAM PROCEDURE FNONLYCW19W2eFeS)3 VALUE FoS3 00068800 T 
OPP PCCP SPCC PCCP CPSP TC Tee eee rece rercecrerecrre Tree eT ee | 00068900 T 
BEGIN 00069000 T 
LABEL SPREDs EXIT3 09069100 T 
Ol ts wi3 00069200 T 

OS t# 5S LIT "FILEI"% 00069300 T 

SI ts LOC Fs UPS3 00069400 T 
TALLY t= 53 00069500 T 

CI $s CI + $3 00069600 T 

GQ To SPRED3 00069700 T 

DOS ts 7 CHR} 20401° 00069800 P 
TALLY %# 123 20401" 00069900 P 

GO To EXIT3 00070000 fT 
SPREDS 00070100 T 
6CIF SC = ALPHA THEN ELSE JUMP OUT; 00070200 T 

DS ts CHRs UPT)3 00070300 T 

EXIT? 00070400 7 
OS te 2 LIT " ="F TALLY 8@ TALLY + 23 00070500 fT 
FNONLY ta TALLY3 00070600 T 

S$ !% O13 00070700 T 

SI te LOC S3 00070800 T 

DOI ta W2;3 00070900 T 

DS ts WDS}3 00071000 T 

T 


ENO QF FWNONLYS 00071100 


Rae RE eS 00073500 T 
PROCEDURE GENFILINE CFN» FT)# VALUE FNe FTS REAL FNe FT 00073600 T 
PPP P PSPC LSC SPS Ee eee ere TP c ce L irre rireri rey Ts | 00073700 T 
BEGIN 00073800 T 
REAL Xs D3 00073900 T 
START OF SEGMENT « 

Became enr ener re eters rere ree aee eet eneneee tres eeeeeeneebeseetenescrersenes 00074000 T 
REAL STREAM PROCEDURE TYPEONLY (WeTeS)3 VALUE WaT Sh . 00074100 T 
BEGIN 00074200 7 
LABEL SPRED» EXITS 00074300 T 
LOCAL x3 000744800 1 
DI tans 00074500 T 
OSteg LIT " TYPES"$ TALLY te 103 00074600 T 

SI $m LO0c T3 00074700 T 
UPS3 00074800 T 

CI t= Cl + S3 00074900 T 


0015 
0018 
0020 
0023 
NEXT SEG 


0035 
0035 
0035 
0035 
0035 
0035 
0035 
0036 
0036 
0036 
0037 
0037 
0038 
0038 
0038 
0039 
0039 
0039 
0039 
0044 
0043 
0043 
0043 
0044 
0044 
0044 
0044 
0045 


0046 
0046 
0046 
0046 
0046 
aeRE KEENE 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0001 
0004 
0002 


8 


18 


: ' 
Beis. Das Ea ey A P i 
‘ BS Ser ate Yoh “e pete 


GO To SPRED3 
DS te 7 CHR; 
TALLY tt 173 
GO To EXIT 
SPRED$ 
7CIF SC s ALPHA THEN ELSE JUMP QUT; 
DS ts CHR UPRT)3 
OS #* LIT * %%3 
EXIT# 
DS t= 4 LIT " oF "3 
TYPEONLY %# TALLY 
ENO OF TYPEONLYS 


LOVER COTE CURR TUMOR CTE TEPER CEL TURE OCEPC TIER TT rere e reer ree 
X tm FNONLY (LCOJ* OF FNe 0)3 
X §* X + TYPEONLY (De FT» 023 
TWHXOUT CLLe LEOJ]» Xe NOCRLF D3 
END OF GENFILINES 


ETOP e EPCS CCPL LETC Pee LEPC CTC ICCC CCCeCICLCCrLrcIOccC©Cece. Ts | 
PROCEDURE ERROR(SsLCWeA)3 VALUE $3 REAL S3 BOOLEAN LCWS ARRAY AlO}3 
FORWARD} 
ORCS PEC ec CeCe e PT ere re Tere Teer ceTiTici Tee rr ererrrl es 
REAL PROCEDURE DOGSLOOSEs 
PPC ee LSP PPC e ee eer eee cere r erie rT rcec cirri Tire i es £ 
BEGIN 
REAL LLe Ts 


LABEL COLLECTsEXITS 
FOR LLteMAXLINES STEP "1 UNTIL O 00 
IF TSsDOGHOUSECLL] NE@ O THEN 
IF CTRANDBASECROWINUSE) NEQ T THEN 
IF NO DOGLICENSE THEN GO TO COLLECT; 
DOGSAROUND &# DOGCATCHERS GTR 03 
WECANUSEDATA 48 NO DOGSAROQUNDS 
IF WECANUSEDATA THEN % OekKe TO RETURN OISK, 
BEGIN..%.. FIXUP. TANK/DISK HEADER, 
DISKWAITC 1sWORKE 4) 2 30> TANKFILE D3 
CLEARCWORKE10)215)3 
WORKCROWINUSE41 0] $8C TRANOBASECROWINUSE Js 
WORKEO] $* ROWINUSE & CROWCOUNTI®1) (16133915)3 
DISKWAITCO*WORK(C#) 2300 TANKFILEDS 
FOR T430 STEP 1 UNTIL 15 DO 
BEGIN % DONT GIVE AWAY THE CURRENT ROWs 
IF T NEQ ROWINUSE ANO CTRANDBASELT) NE@ O THEN 
BEGIN %& GIVE BACK UNUSED DISKe 
FORGETUSERDI SK (CTRANOBASECT Js TANKSIZE)3 
CTRANOBASELT] 38 03 
END GIVEBACK3 
END FOR LOOP; 


16 IS 


00075000 
09075100 
00075200 
00075300 
09075400 
00075500 
00075600 
00075700 
000735800 
00075900 
00076000 
00076100 


00076200 
00076300 
00076400 
00076500 
00076600 


21 LONG 


00078500 
00078600 
00978800 
00078900 
00079000 
000791300 
00079200 
00079300 


START OF SEGMENT 


00079400 
00079600 
00079700 
00079800 
00079900 
00080000 
00080100 
00080200 
00080300 
00080800 
00880500 
00880600 
00080700 
00080800 
00080900 
00061000 
00081100 
00981200 
00081300 
00081400 
00081500 
00081600 


AAs 


i 


AHN AHHH Ht tt ts ts ta te 


0010 
0010 
0012 
0015 
0017 
NEXT SEG 


0046 
0046 
0046 
0046 
0046 
0046 
0046 
0046 
chitown 
0000 
0000 
0004 
0002 
0004 
0008 
0009 
0014 
O012 
0012 
0014 
0016 
0018 
0020 
0022 
0023 
0023 
0025 
0025 
0026 
0028 
0028 


8 


19 


atowe Ge Bb ORE aed 1: 


END FIXUP TANK HEADER? 
GO EXIT; 

COLLECT! 
DOGCATCHERS %=* DOGCATCHERS#13 
DOGLICENSE 2 TRUES 
DOGSLOOSE te Ls 

EXITSEND DOGSLOOSES 


CTS UES PC EL TIC TIC L Tee c Tee TT Tere rc Cece TCL cere rTererer ri riit Ty £) 
REAL PROCEDURE FINDALETTERCWORDsTABLEs TABLESIZE D3 

TTP CCPC CT PCLT CC TCS TIES ICCC TTL CITT CTT L TSI TTI T LTT TT Ti LiriTrTiritt i Tt) 
VALUE WORDsTABLESIZEs REAL WORD» TABLE sTABLESIZES 

BEGIN LABEL DUMMY; 


REAL STREAM PROCEDURE FNDALETTERCWORD sTABLE »TABLESIZE)3 
VALUE WORDs TABLESIZES . 
% ROUTINE COMPARES "WORD" WITH ENTRIES IN ARRAY "TABLE" 
% 1ST CHReOF EACH "TABLE” ENTRY@NOsOF CHRS.IN WORD (h1tijat IF COMPILER) 
% "TaBlLe” SHOULO BE "TABLECII" TO USE RETURNED VALUE AS INDEX TO "TABLE" 
BEGIN LOCAL SVsT»SGNS LABEL FOUNDSEXITS3 
SItSTABLES SVteSIS TALLYIM43 
TABLESIZECDISALOC SGNJ DStweZONS % SAVE ZONE BITS 
S1#eSV3 SItsSI413 OLSFLOC WORDS Ditapreis % POINT TO 4ST CHRSe 
IF Sc % DC THEN JUMP OUT TO FOUND; 
TALLYSBTALLY413 SI#eSV3 SItaSle83 SVeaSI)3 
TALLY2*0% FNDALETTERS*TALLYS GO TO EXITS % IF NOT FUUND 
FOUND! 
TESTALLY3 STt@LOC Ts DIS@LOC FNDALETTERS DStswoS; 
Sltm_OC SGNJ DItSLOC FNDALETTERS DStsZONS X% TRANSFER SIGN 
EXIT! 
END STREAM PROCEDURE FNDALETTERS 


FINDALETTERt®FNDALETTER(WORDs TABLE» TABLESIZE)3 
END PR@CEQURE FINDALETTER3 


ERE EEE EERE ERNE REEEREEEN ERE RARER 
REAL PROCEOURE FINDAWOROCWORDs TABLEsTABLESIZE)3 

POPPE IPC PETTERS ECOL ESOC CLOSE LECCE SCL OCT ICL ACCT TCC ELS CLES LTCC LETT TTT) 
VALUE. WORDsTABLESIZES REAL WORDsTABLEsTABLESIZE3S 

BEGIN LABEL DUMMY3 


REAL STREAM @ROQCEDURE FNDAWQROCWORDs TABLE» TABLESIZE)3 

VALUE WORDs TABLESIZE3 

® ROUTINE COMPARES “WORD” WITH ENTRIES IN ARRAY "TABLE" 

® AST CHReOF EACH "TABLE® ENTRYSNOOOF CHRS»IN WORD (CL9i9e1 IF COMPILER) 
® 1ST CHRe OF "WORD" = NO, OF CHRSe INPUT BY USER ( MAX, ® 7 ) 


00081700 T 
008981800 T 
00081900 T 
00082000 T 
00082100 T 
00082200 T 
06982300 T 
19 [S 39 LONG» 


00082400 
00082500 
00082510 
00082520 
00082600 
START OF SEGMENT 
00082610 
00082700 
00082800 
000862900 
00083000 
00083100 
09083200 
00063300 
00083400 
00083500 
00083600 
00083700 
00083500 
00083900 
00084000 
00084100 
000864200 


ie Me ee eee Oe ee ee ee ee ee ee ee 


00084210 T 
09084220 T 
20 IS 16 LONG» 


00084300 
00084400 
00084410 
00084420 
008984500 
START OF SEGMENT 
00084510 
00084600 
00084700 
00084800 
00084900 


Se ee 


0030 
0030 
0030 
0031 
0032 
0034 
0035 
NEXT SEG 


0046 
0046 
0046 
0046 
0046 


ee teweeee 


0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0002 
0003 
0004 
0003 
0006 
0006 
0008 
0008 
0008 


0010 
0013. —C«; 
NEXT SEG 


0046 
0046 
0046 
0046 
0046 


wWetthewew 


9000 
0000 
0000 
0000 
0000 


8 


20 


8 


ei 


14 


1 
& Pha ECE. Rts PO CTAR GAD 2 


a e ‘ e $ » 


* “TABLE” SHOULD BE "TABLECI3" TU USE RETURNED VALUE AS INDEX TO “TABLE” 
BEGIN LOCAL SVsWROSIZ+TBLSIZeSGN3 LABEL FOUNDsEXITS3 
STt#L0C WORDS DISsLOC WROSIZS DISaDI +73 DSSSCHRS % WORD SIZE 
SISS7ABLES SV#eSIT3 TALLY#343 
TABLESIZECOTS#LOG SGN DStaZQN3 %& SAVE ZONE BITS 
STtasv3e OLtslOC TBLSIZ3 OLssOl4+73 OSteNUMS % LENGTH OF TABLE ENTRY 
ST##L Oc WROSTZS SItaSle73 OlselOc TBLSIZs Dlseple73 
IF Sc GEQ@ Oc THEN % WROSIZ AT LEAST AS LARGE AS TBLSI2 


BEGIN 
ST tRSV3 SJtsSI413 OLtwelocC WORDS OLS sD1413 % POINT TO ACTUAL CHRS, 
If WROSIZ SC * DC THEN JUMP OUT TO FOUND; 
ENO} 
TALLYISTALLY4#13 SIesSVZ STseS1+83 SVseS1)3 
TALLY&=03 FNDAWORDSSTALLYS GO TO EXITS & IF NOT FOUND 
FOUNDS 
WROSJZ*eTALLY STte_OC WROSIZ4 OpteLoc FNOAWORDS OStenwDSs 
SIltalOc SGNZ OI$s=LOC FNOAWOROS OS3#Z0N3 % TRANSFER SIGN 
EXIT! 
END STREAM PROCEDURE FINDAWQRD3 


FINDAWORD! sFNDAWORDC WORD sTABLE»TABLESIZE)3 
END PROCEDURE FINDAWORD3 


OSPR SEPE SESS ELESS ESE L SCALES SCLCLOLIES SCE PESTS CLAESTCLCLAECLCLAL LITT 
PROCEDURE ENTERESPCLL»ADRSsASVALUE LLeAORSS REAL Lie ADRSS ARRAY ALQJ3 
BK RE EEE EEE ER EET ETEK E TERE ERK RE ENE KER EEY 
* THIS PROCEDURE IS USED TO KEEP TRACK OF ESP DISK SEGMENTS ALLOCATED 
® FoR LABEL EQUATION USEAGE. EACH LgGICAL LINE HAS A VARIABLE CALLED 
% "ESPWORD” WHICH IS COMPRISED OF 3 
* ESPFLAG & ESPWORD.C1#3) ¢( ON WHEN ESPTABLE IS FULL ) 
% ESPCOUNTS ESPWORD,C298) ( NUMBER OF ENTRIES IN ESPTABLE ) 
% FIRSTESP® ESPWORD,C20%28) (1ST ESP ADORESS FOR LBL, FOQNe ) 
% EACH ENTRY IN "ESPTABLE” IS COMPRISED OF 8 
* ESPTABLECIJ,C1%1] (MARKS THIS WORD IN USE ? 
% ESPTABLECTI.C2#8) CLOGICAL LINE USING THIS WORD ) 
% ESPTABLECT).020328) CADORESS OF ESP SEGMENT IN USE ) 
% "ESPTABLE" IS DECLAREO COSESPTABLESIZE) 
% WHEN A POSITIVE VALUE FOR LL IS PASSED TO THIS PROCEDURE» AN 
® ENTRY IS PLaceD IN ESPTABLE FOR THAT LINE AND ESPCOUNT IS INCREMENTED. 
% ESPFLAG IS TyRNEO ON IN THE EVENT THAT THE ESPTABLE 1S COMPLETELY 
% FILLED, WHEN A NEGATIVE VALUE FOR LL YS PASSED TO THIS PROCEDURE? 
% AND A NON@NEGATIVE VALUE FOR ADRS IS PASSEDs THE ENTRIES FOR THE 
% SPECIFIED LINE ARE REMOVED FROM THE TABLE» ANDO ESPWORD IS RESET 
% TO ZEROe WHEN BOTH LL AND ADRS ARE NEGATIVEs THE ENTRIES FOR THE 
% SPECIFIED LINE ARE REMOVED FROM THE TABLE AND THE ESP SEGEMENTS 
® ADDRESSED BY EACH TABLE ENTRY ARE RETURNED TQ THE SYSTEMe ESPWORD 
% IS ALSO Re*SET TO ZERO, 
BEGIN 
BOOLEAN DELINKsFORGETS REAL LeWORDS LABEL EXIT 


00085000 
00083100 
00085200 
00085300 
00085400 
00085500 
00085600 
00085700 
00085800 
00085900 
00086000 
00086100 
00086200 
00086300 
00086400 
00086500 
00086600 
00086700 
00086800 


at te st to tt st st 


00086810 T 
00086820 T 
e1 1s 20 LONG» 


00087602 
09087603 
00087604 
00067605 
00087606 
00087607 
00087608 
00087609 
00087610 
00067611 
O008TOL2 
00087613 
00087614 
00087615 
00087616 
00087617 
00087618 
00087619 
00087620 
00087621 
00087622 
00087623 
00087624 
09087625 
00087626 
00087626 
START OF SEGMENT 


ae te ss st st st se 


0014 
00%? 


NEXT SEG 


0046 
0046 
0066 
0046 
0046 
0046 
0046 
0046 
0046 
0046 
0046 
0046 
0046 
0046 
0046 
0046 
0046 
0046 
0046 
0046 
0046 
0046 
0046 
QOQ46 
0046 
0046 


eae erewen 


8 


22 


hes 


Basingss Fuerit. dnc. sv 


fvore 


! 
' 
1 
t 


i 


OELINK te BOOLEANCLL C181] )2 LELSmABSCLL 3 
FORGET t= BOOLEANCADRS.C1%1))4 ADRS$eABSCADRS)3 
FOR y%sO0 STEP 4 UNTIL ESPTABLESIZE DO 
IF DELINK THEN 
BEGIN 
IF BOOLEANCC WORDS SESPTABLECTI)e01919) THEN % VALIO ENTRY 
If WORBeC2t8I]*LL THEN % ENTRY FOR THIS LINE 
BEGIN 
ESPCOUNT &&% ESPCOUNT = 433 
IF KORGET THEN 
IF CWORDt#WORD.0208281) NEQ@ O THEN FURGETESPOISK( WORD); 
ESPTABLECTI&503 
IF ESPCOUNT & 0 THEN &% NO MORE ENTRIES FOR THIS LINE 
BEGIN 
ESPWORD t= 0% GO TO EXITS 


ENDS 
ENDs % IF ENTRY FOR THIS LINE 
END % IF DELINK 
ELSE 
BEGIN X ENTERING NEW VALUE IN TABLE 
IF NOT BOOLEANCESPTABLECIJe€391)) THEN % AVAILABLE WORD 
BEGIN 
ESPTABLELI2 $= “ADRS & LLE284038)3 
ESPGOUNT t= ESPCOUNT + 13 
GO TO EXITS 
ENOJ X IF AVAILABLE WORD 
ENDS % IF ENTERING NEW VALUE 
ESPFLAG t® 43 % NO ROOM IN TABLES 
EXITt 
END PROCEDURE ENTERESPS 


OOS S TEST CS CC CESS CESSES CLIC ELECOLCCC SSCS STC CSLSTCLAETLILIECTL CLT LOLOL. 
REAL PROCEDURE SCANCPTR»STACKWORDs COMPVALUE* WORKENDADRSsPNTRD3 

RUMEN EERE REE ORE EWE KREME RHEE EAE EREEHRARHEEEREEEKEERE RHEE 
VALUE COMPVALUE»WORKENDADRS} 

REAL PTR» STAGKWORDs COMPVALUEs WORKENDADRS» PNTRS 

BEGIN LABEL DUMMY3 


REAL STREAM PROCEDURE SCNCP TR» STACKWORD sCOMPVALUE »sWORKENDADRSsPNIR)3 
VALUE COMPVALUEsWORKENDAORS3 
BEGIN LOCAL SVoOVsTs LABEL BUNKSsEXI Ts 
& PUTS A TOKEN INTO STACKWORD 
& RETURNS e223 OR 5 FOR ALPHANUMERIC eNUMERICoSPECIAL2END OF RECORD 
Ol tewORKENDADRSS DStsLIT LEFTARROWS & MARK END OF RECORD 
SIS@pTR3 STseS1*53 SltmScs & STARTING ADORESS FOR SCAN 


& VOIO 
BLNKS? 
IF Scs* * THEN % IGNORE ALL BLANKS 
BEGIN. 
Sytaw3ze13 GO TO BLNKS3 
END} 
IF Sca"s" THEN % IGNORE ALL COMMAS 
BEGIN 
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00087630 
00087632 
00087634 
00087636 
00087638 
00087640 
00087642 
00087644 
00087646 
00087648 
00087650 
00087652 
00087654 
00087656 
00087658 
00087660 


-00087662 


00087664 
000876466 
00087668 
00087670 
00087672 
09087674 
00087676 
00087678 
00087680 
00087682 
00087684 
00067686 
00087688 


40 LONG 


00087700 
00087800 
00087810 
00087820 
000867830 
00087900 


START OF SEGMENT 


00087910 
00088000 
00088100 
00088200 
00068300 
00088400 
00088500 
09068600 
00088700 
00088800 
00986900 
00089000 
00089100 
00089200 
00089300 


T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
’ 


oe ieee Iie. Been fee, Neen Ieee Ben fem Soe Ie ee ee ee | 


0000 
0002 
0004 
0006 
0006 
0006 
0008 
0010 
0010 
0014 
0014 
0018 
0019 
0029 
0024 
0023 
0023 
0023 
0023 
0023 
0023 
0024 
0025 
0027 
0034 
0032 
0032 
0034 
0036 
0037 
NEXT SEG 


0046 
0046 
0046 
0046 
0046 
0046 

eet eeee 
0000 
0000 
0000 
0000 
0000 
9000 
9000 
0004 
0004 
0004 
0002 
0002 
0003 
0003 
0004 


8 


23 


fe 


SytwSI+13 GO TO BLNKS3 
ENOS 
SVtasls STtelLQc SV3 DItsPNTR§ DS&tswOSs SISsSVs DI PRSTACKWORDS 
IF Sc = LEFTARROW THEN % CHECK FOR END OF RECORD 
BEGIN 
sures Ts ST'slOc Sv3 SJ'aS1453 
OytaDIs DItehOC WORKENDADRSS DI tapnl+si3 
Ip 3 SG # OC THEN % END OF RECORD 
BEGIN 
DItwOVs DSPS7LIT"BQO0000"S OStaL IT LEFTARROWS 
TALLY 3@53 SCNSSTALLYZ SIlasSvs GQ TO EXIT 
ENDS x 
SytsSys DIsaDvi 
EnDS & IF LEFTARROW 
IF SceALPHA THEN IF SC LEQ "9" THEN & LETTER OR DIGIT 
BEGIN 
IF Sc GEQ "0" THEN IF Sc 4LEQ "9" THENS 
Ip TOGGLE THEN & OIGIT STRING 
BEGIN 
TALLY8w2i SCNS@TALLYS &% COOE FOR DIGIT STRING 
TALLYtuds SIsaSI4o13 
7CIF SC GE@ "0" THEN IF SC LE@ "9" THEN? 
IF TOGGLE THEN ELSE JUMP OUT} 
STasSyo1s TALLYS sTALLY 4123 
TUmTALLYS STaeSleTs OSte T OCTs GO TO EXIT; 
ENOs & IF OIGIT STRING 
TALLY3"e13 SCNSS@TALLYS % CODE FOR ALPHANUMERIC STRING 
DvteOy3 OS#eBLIT"0 "5 OLewOl773, TALLY S$ #03 
7cIF SC & ALPHA THEN ELSE VUMP QUT; 
Ip Sc GTR COMPVALUE THEN JUMP QUT3 
DStaeCHRs TALLY STALL Yel 23 
TeBTALLYZ SVEMSTS STse_OC Ts ST teSle7s OL seOVE OSSECHRS & LENGTH 
SytaSy3 
63C1F SC#ALPHA THEN ELSE JUMP QUT; 
IF SC GTR COMPVALUE THEN JUMP QUTs SIT #RSI41)3 
Go TQ EX]T3 
ENDS & IF ALPHA 
TALLY! 833 SCNSSTALLYS % CODE FOR SPECIAL CHARACTER 
DSts7LITP*E000Q0O"s HSIRCHRS & RIGHT JUSTIFIED 


XIT$ 
SVimST} STteL.OC SVJ DTtaPTR3 UStsWOS; % NEXT ADDRESS 
ENO STREAM PROCEDURE SCN3 


SCANTRSCNCPTRsSTACKWORD sCOMPVALUE » wWORKENDADRS sPNTR)3 
END PROCEDURE SCANS 


TSR RPC ORCAS AS CCE ROSES EE EEE ES EEE ERLE EET EE PSEC EPCRA SEES CES EEE E RSS 


BOOLEAN PROCEDYRE YOUFINDAVERS(STACKs VERBLOC»NUMOF VERBS) 3 


rOSERECERRECOACECCEAE SESE SEES EEE SEE EET CEE PETE PEC eee See Pe Cee 2] 


VALUE NUMOFVERBSS REAL STACKs VERBLOC*+NUMOF VERBS! 
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00089400 
00089500 
00089510 
00089600 
00089700 
00089800 
00089900 
900090000 
00090100 
00090200 
00090300 
00990400 
00890300 
00990600 
00090700 
09090800 
00890900 
00091000 
00991100 
00091200 
00091300 
000914400 
00091500 
00991600 
00091700 
00091800 
00091900 
00092000 
00092100 
00992200 
00092300 
00092400 
000924500 
00092600 
00092700 
00092800 
00992900 
00893000 
00093300 
00993200 
00093300 
00093400 


Ass AN HHA ts tt tt tt tt st tt st to tt ty a st se 


00093410 T 
00093420 T 
49 LONGs 


00093500 Tf 
00093600 T 
00093610 T 
00093620 T 


0004 
0005 
0005 
0006 
0007 
0007 
0008 
0009 
0009 
0009 
0012 
0013 
0013 
0013 
0013 
0015 
0015 
0017 
0017 
0017 
0018 
0018 
0020 
0021 
0023 
0084 
0024 
0025 
0027 
0028 
0030 
0034 
0032 
0032 
0034 
003? 
0037 
0038 
0038 
0040 
0040 
0044 


0042 
0046 
NEXT SEG 


0046 
0046 
0046 
0046 


8 


eect 


eC_ 


BEGIN 
LABEL L3 


BOOLEAN STREAM PROCEDURE YOUFNDAVERB(STACKs VERBLOC »NUMOF VERBS) 3 
VALVE NUMOFVERBS3 


BEGIN 
LABEL FOUND» AWAY; 
LOCAL Ts SAVDS 
DI = VERBLOCs SJ] t= STACK; 
NUMOFVERBSCIF SC GEQ@ DC THEN 
BEGIN SAVO &* DIS SltsSile1s OF 33 LOC Ts DOI te DI + 73 
DS ta GHR3 DI ta SAVD} 
Ir YT SC 2 OC THEN JUMP OUT TO FOUNDS 
Or ta SAVD3 
END} 
SI tx STACK; 
DI tw OL + 4523 
GO AWAY) 
FOUNOSt SI ts SAVOD3 SI 88 SI + 73 OF 2% STACK} 
DS ts WOSs TALLY t# 13 *® REPLACE VERB WITH OEFINITION 
YOUFNDAVERBSaTALLY3 
AWAY! EnD OF YOUFINDAVERB3 


YOUFINDAVERBS =YOUFNDAVERBC STACK» VERBLOC »NUMOF VERBS) 3 
END PROCEDURE YOUFINDAVERBS 


Bt ee RRR ERATE EEE EREEN EKER REE 


REAL STREAM PROCEDURE ADDRESS(W)s 
BEGIN SIlusW3 ADDRESS#5S13 ENDS 


EPCS ESTEE SCS CCE TCC UCC TCL ECC CLC OCLC CI CTC CCCCLICT LOCI TTT 
STREAM PROCEDURE STICKCPsAs ENDADRSI3 VALUE Ps ENDADRSS 
y OPEL OEE ETCOSISCLCCOLE CCE SECLSCLCTALLISCLSLSOCCIC CLALIT LILI TETILrTreT 
BEGIN LOCAL SVeOV2 LABEL EXITS 
% TRANSFERS SS MESSAGE FROM WORK ARRAY 
DI seas OStsBLIT™ "3 SItaas OStata WOSs *& BLANK 45 WORDS 
DItSENDADRSS & INSERT RECORD MARKER DStaLIT LEFTARRONS 
SIssps Orta; 
2¢60¢IF SC#LEFTARROW THEN 
BEGIN 
Svt#eSys SyeslLOC SVs SIT taS] +53 
Dvt#013 OTtslLOC ENDADRS; Olt eol+5; 
If 3$cs0¢ THEN JUMP OUT 2 TO EXITS % END QF RECORD 
SytwsSys OL t#0vi 
END} 
OStscHR))s 
EXITS 


24 1S 


START OF S&GMENT 


00093630 T 0046 
00093640 T 0046 
Heke REKaE 
00093700 T 0000 
00093800 T 0000 
00093900 Tr 0000 
00094000 t 0000 
00094100 T 0000 
00094200 T 0000 
00094300 T 0000 
00094400 T 0002 
00094500 fT 0003 
00094600 tT 0004 
00094700 t 0005 
00094800 T 0005 
00094900 T 0005 
00095000 fT 0005 
00095100 T 0006 
00095200 T 0006 
00095300 ft 0007 
00095400 T 0008 
00095500 T 0008 
00095510 Tt 0010 
00095520 tT 0012 
16 LONGs NEXT SEG 
00095600 T 0046 
00095700 T 0046 
00095800 T 0046 
00095900 7 0047 
00996000 T 0047 
09096100 T 0047 
00096200 + 0047 
00096300 T 0048 
00096400 tT 0048 
00096500 r 0050 
00096600 T 0050 
00096700 T 0050 
09090800 T 0054 
00096900 T 005} 
00097000 T 0033 
00097100 T 0053 
00097200 T 0055 
00097300 T 0055 
00097400 T 0055 
00097500 T 0056 
) 


24 


8 


t 


Leeann pena ten penne BE ee mE 8 


END STREAM PROCEDURE STICK3 


Re EU EET EEE EERE EEE ET REE EEE ee 
BOOLEAN PROCEDURE FIXERROR(CSADRS*E ADRS); 

VALUE SADRSsEADRSS REAL SADRSsE ADRS 

BEGIN LaBEL DUMMY3 


00097600 


00097610 
00097612 
00097613 
06097614 


START OF eoderere 


BOOLEAN STREAM PROCEDURE FXERRORGSADRS*EADRS)s VALUE SADRS*EADRSS 
% SADRS IS STARTING ADDRESS OF USERS INPUT RECORD 
% EADRS IS ADDRESS OF END OF USERS INFUT 
% ROUTINE CHECKS SYNTAX OF "FIX" REQUESTS 
BEGIN LOCAL SVs03 LABEL EXITS 
SItSSADRS) TALLY 84s 
20¢If SC LSS "0" THEN SIt@SI41 ELSE YUMP OUT)S X% SCAN TO DIGIT 
IF TOGGLE THEN GO EXIT3 % NO DIGITS 
QCIF SC LSS "0" THEN JUMP QUTSIF SC GTR "9" THEN JUMP OUTS SIteSI44); 
20CIF SCa" © THEN SI#SSI41 ELSE YUMP OUT) % SCAN TO CHRe 
IF TOGGLE THEN GO TO EXITS % EMPTY FIELD 
DI#sLOC Ds DItsDI+7s OSteCHRs & SAVE DELIMITER 
IF ScSO TWEN GO TO EXITS % NO STRING 
IF Sc = LEFTARROW THEN 
BEGIN 
SvtseSzs SyssLOC SV3 STimS1453 OLsaLOC EADRSS DItsD1495s 
IF 35c80C THEN % LEFT ARROW REPLACEMENT 
BEGIN TALLY%#03 GO EXITS END ELSE SIsaSv3 
| NOJ.X IF LEFTARROW 
o3tIr SCwLEFTARRUW THEN % CHECK FOR END OF RECORD 


BEG] 
STE STeeLOC $VF SltsS1*53 Ol talc EAORSS DI 8s0T+53 
Ir 38c"0C THEN JUMP OUT TO EXIT ELSE SI&asv3 
Ends 

IF Sc NEQ OD THEN SI#S3S141 ELSE JUMP QUT); 

IF TOGGLE THEN GO EXITS & MISSING 2ND DELIMITER 

TALLY #803 

EXITS . 
FXERRORSaTALLY3 
END STREAM PROCEQURE FXERROR3 


FIXERROR! BF XERROR(SADRS#E ADRS) 3 
END PROCEDURE FIXERRORS 
25 IS 


ee R PEC ICCSCSCECCSS ESSEC ECC CPSC TC CST CCST CCE SESS ECCS Cece es 2 


-PROCEQURE . SCANNERCSTRTADRSsAsLCHPENDADRS)3 VALUE STRTADRSsENDADRS) 


CETTE TIE PEATE RTE EIT ESILIE ETE E LILLE TEE TEE TEI LILI iiiriiririiirit 
REAL STRTAORSsENDAORSS BOOLEAN LGWS ARRAY ALO}3 
BEGIN... .. 
% MAIN CANDE SCANNER 


97615 
oonoreié 
000976186 
00097620 
00097622 
00097624 
09097626 
00097628 
00897630 
09097632 
00997634 
00097636 
00097638 
00897640 
00097642 
00097644 
00097646 
00097648 
Q0097650 
00097682 
00097654 
00897656 
00097658 
00097660 
00097662 
00097664 
00097666 
00097668 
00097670 
00097672 


00097674 
00097676 


oe ee ee ee ee ee ee ee ee LeeLee ee, 


T 
T 


31 LONG» 


00097700 
00097800 
00097900 
00098000 
09098100 
00098200 


4444-4-4 


0056 


0057 
0057 
0057 
0057 


eewtkitan 


0000 
0000 
0000 
0000 
0000 
0000 
0000 
0003 
0003 
0007 
0009 
0009 
0010 
0014 
0012 
0012 
0043 
0014 
00145 
0015 
0016 
0016 
0016 
0019 
0019 
0022 
0022 
0022 
0022 
0023 


0024 
00a? 
NEXT SEG 


0057 
0057 
0057 
0057 
0057 
0057 


25 


8 


S 


> 


sine = wers, ipo, Sv “abet 


aie Bu 


RETURNS TYPE OF INPUT IN ACBASEJ]4C383) * 
@ COMMENT ¢€ INPUT STARTS WITH QUOTE ) 
VERB € INPUT STARTS WITH A VERB ) 
NUMBER (¢ INPUT STARTS WITH A NUMBER ) 
SPECIAL ¢€ INPUT STARTS WITH A SPECIAL CHARACTER ) 
SSMSG ( INPUT 1S AN SS MESSAGE ) 
NULL INPUT 
WHEN IN@UT TYPE = 2 ( NUMBER ) # 
ACBASE41] & QCTAL NUMBER 
ALCBASE?2) & 
Q = MORE JNFORMATIJON FOLLOWS NUMBER 
1 = NO INFORMATION FOLLOWS NUMBER ( DELETION ) 
32 A "FIX" REQUEST 
RETURNS NUMBER OF TOKENS IN STACK IN ACBASE).£33815) 
RETURNS NUMBER OF "VERBS" FOUND IN ACBASE),618115) 
FOR EACH VERB * 
A CVERBLOCATION J].(33815] = NUMERIC CODE ASSOCIATED WITH VERB 
A CVERBLOCATION Jef18#15) = NUMBER OF PARAMETERS FOR THE VERB 
REAL Ie Ke Ps Se MSs TYPEs VERBS» PLUSORMINUS? 


VWfwn ro 
uaanaua 


We BE BE DE DE DE BE DE de aC de BE BC DE DE de Be ac 


BOOLEAN ERRFLGsPLUSS 

LABEL NULL» STARTCOMPLOOKFERPARAMS»s TOOLONGs SNEAKIN*GENSEQs 
FIXCHECKs SETERROReFINISHP EXITS 

DEFINE ERRV & 3°000000000000036"830L184682)%3 

DEFINE SEQV w= 3"0000G0000000065"aal( 1846s 2ez#3 

MS t# §$ #8 BASE * 14 % INITIALIZE STACK INDICES 

P te STRTADRSs % ADDRESS OF WORKC1i)3 


NULLS 


IF TYPES@SCANC PS ACSI "Zs ENDAORSs SCANPTREIS*SBASE] 35 THEN % EOR 
BEGIN 
ACBASE) $8 0 & SC39#4583)73 % NULL RECORD 
GO TO EXIT3 


ENDS 
IF TYPEs2 THEN &% INPUT STARTS WITH NUMBER 


BEGIN % CHECK FOR DELETION (NUMBER FOLLOWED BY END OF RECORD) 
KemP3 ACS¢RS41] 4% 


TF SCANCPoTs*"Z"sENDADRSsSCANPTRES@SBASE))#5 AND KeP THEN 1 ELSE 03 


ACBASE) #8 2 & 20384533)3 *% OCTAL NUMBER CODE AND STACK SIZE 
GQ TO EXITS 
ENDS % IF RECORD STARTS WITH NUMBER 


e*@ ee OPFOR EHREC HC HRHRH AHR HR OHH R ESR RHR AR ARP REO AOSTHEOHRHAHORAEHR HERAT EARE BE 
iF "TYPES “THEN % ALPHANUMERIC TOKEN 
BEGIN 
STARTCOM! 
PLUSORMINUS8a03 
IF YOUFINOAVERBCACS)sVERBTABLECO)s,NUMOFVERBS) THEN % C&E VERB 
BEGIN 


MS tm $3 % SAVE STACK LOCATION OF VERB 
VERBS ¢* VERBS + 13 % INCREMENT VERB COUNT 
IF ACSJ.C33915]*VSSMSG THEN % SS MESSAGE 


BEGIN 
IF VERBS NE@ 41 THEN GO TO SETERRORS & MUST BE FIRST VERB 


IF SCANCPPALS3§9S 41) -" 9" ZENDADRSs SCANPTR(S*SBASE]) GTR 2@ THEN 


60 TO SETERRORS 

STICKCPs sENDADRS)3 % TRANSFER MESSAGE TQ ARRAY "L* 
ACBASE] $2 0 & 4(394583)3 % CODE FOR SSmMSG 

GO TO EXIT) 


00098300 
00098400 
000983500 
099098600 
00098700 
000968800 
00098900 
00099000 
00099100 
00099200 
00099300 
060099400 
00099500 
00999600 
00099700 
00099800 
00999900 
00100000 
08100100 


START OF SEGMENT 


00100200 
00100300 
00100400 
00100500 
00100600 
00100700 
00100800 
00100900 
00101000 
001011300 
00101200 
00101300 
00101400 
00101500 
00101600 
00101700 
00101710 
00101800 
00101900 
00102000 
00102100 
09102200 
00102300 
00102400 
00102500 
00102600 
00102700 
00102800 
00102900 
00103000 
00103100 
00103200 
00103300 
00103310 
00103400 
00103500 
00103600 


ne te ta a to te tt tet tt st a tt oe tt 


00s? 
0057 
0057 
0057 
0057 
0087 
007 
0057 
0057 
0057 
00S7 
00S? 
0057 
0057 
0057 
0057 
0057 
0057 
0087 


HKRUAKKREY 


0000 
0000 
0000 
0000 
0000 
0000 
0004 
0002 
0003 
0010 
0014 
0013 
0013 
0033 
0014 
0035 
0017 
0024 
0027 
0027 
0027 
0027 
0028 
0029 
0029 
0029 
0033 
0034 
0035 
0036 
0037 
0038 
0039 
0047 
0048 
0050 
0052 


ENDs % IF SS MESSAGE 
IF BOOLEANCACS )e€681)) THEN &% "SPECIAL" VERB = STOP SCANNING 
IF VERBS NEQ@ 1 THEN % “SPECIAL™ VERBS NOT ALLOWED AFTER "3" 
BEGIN 
ACSJ#aVERBTABLECALS)e£9891)3 GO TO SETERRORS 
END ELSE GO TO FINISH3 


LOOKFERPARAMS$ 


TOOLONG: 


SNEAKING 


IF (StsS+i) GEQ PREVRCW THEN % DONT CLOBBER STACK 
BEGIN 
ERRSW %* "TOOMUCH"S 
MWSGPTR $8 303 
GO TO SETERRORS 
ENDS 
IF TYPERSSCANCPSALS] o "9" ENDAORS» SCANPTRES*"SBASEJ)95 THEN 
GO TO FINISH; 
IF TYPES3 THEN % PARAMETER IS SPECIAL CHARACTER 
BEGIN 
PLUSORMINUS 8 Q3 
IF ACS) = "3" THEN % END OF LOGICAL REQUEST 
BEGIN 
IF TYPESSSCANCP PACS o"Z",ENDADRS»s SCANPTR(S*SBASEJ) a5 THEN 
GO TO FINISH} 
IF TYPES1 THEN % ALPHANUMERIC TOKEN FOLLOWS "3" 
BEGIN 
ALMS] t 3 ACMS] & (S°MS"1)018833915]3 % PARAMETER COUNT 
MS 3® Si %& NEXT VERB LOCATION 
GQ TO STARTCOMs 
END} %& IF ALPHANUMERIC STRING FOLLOWS "3" 
IF TYPES3 THEN % SPECIAL CHARACTER FOLLOWS "4" 
BEGIN 
TF ACSIs"3" TREN GO TQ SNEAKINS %& REDUNDANT 
IF ACSJs""" THEN GO TO FINISHS % COMMENT AFTER "3" 
IF ACSJa"%+" THEN GO TQ GENSEQ3 % RESEQ SHORTHAND 
ENDS &% IF SPECIAL CHARACTER FOLLOWS "35" 
GO TU SETERRORS % NOTHING ELSE ALLOWED AFTER "3" 
ENOJ &% IF PARAMETER @ "3H 
IF aACSJ8""" THEN PLUSORMINUS##2 ELSE 
IF ACSJ#"4+" THEN PLUSORMINUSS 333 
GO LOOKFERPARAMSS % SAVE ALL SPECIAL CHARACTERS 
ENDS % JF PARAM IS A SPECIAL CHARACTER 
IF TYPES1 THEN % ALPHANUMERIC PARAMETER 
BEGIN 
RLUSORMINUS#&03 
GO LOOKFERPARAMS3 
END# % IF ALPHANUMERIC PARAMETER 
% TYPE * 2 » NUMERIC PARAMETER 
IF PLYUSORMINUS GTR O THEN % SIGNED NUMBER 
BEGIN 
ACS] t# ACS] & PLUSORMINUS(14846%82)3 % SIGNED NUMBER 
IF NOT PLUS THEN ACS8#Se41] 38 ACS#4]3 PLUS te FALSE; 
ENO# 
PLUSORMINUS %* 03 
GO LOOKFERPARAMS3 
ENDS % IF A CANDE VERB 


MATCHCALS] (6342) "FIX ") GO TO FIXCHECKS 
Go TO SETERRORJ % ALPHA STRING NOT A VERB OR A "FIX*® 
ENDS & IF TOKEN JS ALPHANUMERIC 


00103700 
00103800 
09103900 
00103910 
00103920 
00103930 
00104000 
00104100 
00104200 
00104300 
09104400 
00104500 
00304600 
00104700 
001047140 
00104800 
00104900 
00305000 
00105400 
00105200 
00105300 
00105310 
00105400 
00105500 
00105600 
00105700 
09105800 
00105900 
00106000 
00106100 
00106200 
09106300 
00106400 
06106500 
00106600 
00106700 
00106800 
00106850 
00106900 
00106950 
00107000 
00107050 
00107100 
00107150 
00107200 
00107250 
00107300 
00107350 
00107400 
00107450 
00107500 
00107550 
00107600 
00107650 
00107700 
00107750 
00107800 


AMA AANA HHA HH Ht Ht tt tt st a a ta st os ts tt 4) 


0053 
0053 
0054 
0055 
0056 
0058 
Q058 
0059 
0060 
0064 
0062 
0064 
0066 
0066 
0073 
0074 
0074 
0075 
0076 
0077 
0077 
0085 
0086 
0086 
0087 
0090 
00914 
0094 
Q091 
0092 
0092 
0094 
0095 
0097 
O09? 
0097 
0097 
0100 
0102 
0103 
0103 
0104 
0104 
0105 
0105 
0105 
0105 
0106 
0107 
0109 
O1ia 
0114 
0115 
0415 
O115 
0119 
Olea) 


we ds. 


i 


IF TYPEs3 THEN % TOKEN IS A SPECIAL CHARACTER 
BEGIN 
TF ALSI=%4" THEN % SEQUENCE REQUEST 
BEGIN 
GENSEQ! PLUSORMINUS 18 33 % NEXT PARAM WILL BE INCREMENT 
MS tw S$ % MARK STACK LUCATION OF "SEQ" VERB 
VERBS 3= VERBS + 13 PLUS t= TRUES 
ACS] 1% SEQVJ % REPLACE "4" WITH SEQUENCE VERB CODE 
GO LOOKFERPARAMS3 
ENDS % IFS "4" 
Ip ACSJa%«e" THEN % A "FIX" REQUEST 
BEGIN 
FIXCHECK? 
IF TYPEN®SCANCP* ACS) 29" * ENDADRSs SCANPTRES@SBASE]) NEQ@ 2 THEN 
GO TO SETERRORS 
IF (SteS4#1) GEQ@ PREVRCW THEN GO TO TOOLONGS 
ACS) t= 33 % DENOTES A "FIX" 
ACBASE) t® 2 & 2038459333 % "FIX" CODE AND PARAM, COUNT 
GO TO EXITS 
ENDS % IF "FIX" 
If ACS]="5" THEN GO TO NULLS % INPUT STARTS WITH "3" 
IF ACS]=""" THEN % COMMENT 
BEGIN 
ALBASE) tm O03 
GO TO EXITS 
ENDS 
SETERROR! | 
ACMS+1] $e ACS] % PLACE ERRONEQUS TOKEN IN 1ST PARAM» POSITION 
ACMS] $* ERRVS & CALL ON ERROR ROUTINE 
VERBS t= VERBS + 13 
ERRFLG ts TRUE 
S #3 MS + 23 % ADVUST FOR CORRECT PARAMETER COUNT 
EnDs x IF TOKEN IS A SPECIAL CHARACTER 
FINISHS 
ACMS] t@ ACMS) & (S*MS"1)018833%15)3 & PARAMETER COUNT 
ALBASE) t™ (S*BASE"4) & VERBSC18833845) & 
REALCERRFLG)CL7$4791) & 106384593)3 
EXIT# 
END PROCEDURE SCANNERS 


POSS SP ECCS ELE SCS SEE ELSE EE SEEPS CET C LE CSOCSCOOOCSCCSCOLCCOCSS SSE CLE. ST Cy 


BOOLEAN STREAM PROCEDURE CHECKBITCNsLST)3 VALUE NZ 
BEGIN SY#susTs SKIP SBS SKIP N SOS IF SB THEN TALLY##13 
CHECKBITS@TALLYS END STREAM PROCEDURE CHECKBIT3 


OCC ERE PO COSC ECC CCSESLCCCOLOCSOOLEL A CELTS C ELS LeCSETeCCCCeLALaerereceecras s | 


REAL PROCEDURE CHANGEWHICH(A)S ARRAY alO]3 
BEGIN 
REAL Te Se WHICH) 


00107850 T 
00107900 T 
00107950 T 
00108000 T 
001086050 Tf 
00108100 T 
09108150 T 
00108200 T 
00108250 T 
00108300 T 
00108350 T 
00108400 T 
00108450 T 
00106500 T 
00106510 7 
00108550 T 
08108600 T 
00106650 T 
00108700 T 
00108750 T 
00106800 T 
00108850 fT 
00108900 T 
06108950 T 
00409000 Tf 
00109030 T 
00109100 T 
00109150 T 
00309200 T 
09109250 T 
00109300 T 
00109350 T 
00109400 T 
00109450 T 
00109500 Tf 
089109550 T 
00109600 T 
00109650 7 
00109700 T 
26 IS 174 LONG» 


00109750 
09109800 


00109900 
00110000 


+4 


00200000 
00900100 
00200200 
00200300 
START OF SEGMENT 


“+ -+-4-4 


i | 


O12 
0124 
0122 
0123 
0123 
0124 
0125 
0127 
0129 
0132 
0132 
0133 
0133 
0134 
0144 
0142 
O14a 
0145 
Q147 
0148 
0148 
0149 
0150 
0154 
0152 
0153 
0133 
0153 
0155 
0157 
0158 
0159 
0160 
0160 
0164 
0164 
0166 
0168 
0169 
NEXT SEG 


0057 
0057 
0057 
0089 


0064 
0064 
0064 
0064 


anbhhaken 


8 
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LABEL BADPRARAMsGETYPEs BADTYPEs BADWORDSEXITS 
I BOOLEAN SRC»sOBY3 
| INTEGER 43 20518" 
IF T #® ACSREG?®BASE*ACBASEIJI,FF = 0 THEN 
/-BEGIN WHICH #2 O23 ACBASE] 83 "NOPARAM"S 
SREG ts BASES MSGPTR ts 103 


GO EXIT 
END3 
pedurndant afth S t= SREG} 
ng (the MATCH CVERBTABLE CA (5291989)2,CON42)e"TYPE  ") x0404- 
: ( j 0404s 


INCCSREG) 
IF T ® 1 THEN 
BEGIN 

MATGHCWHICHE SOGACSREGILOSO842) s"PASSWOR") WHICHS 35 
ELSE MATCHCWHICHs "NAME ") WHICH? 36 

ELSE GQ BADPARAMs 

GO EXITs 
ENDS 

MATCHCACSREGI] «CO842) oe" TYPE "2 
B WHICH 33 13 


Tp 
£ 


Paras 


a PE: 
ETM mice i L; 


@ Bo 


MATCHCACINCCSREGI I] .COb42]2"TO ") INCCSREG)3 
I 


-ACSREGI.C3%#32 NEQ O THEN 


GI 
IF ACBASE4+1] $% ABSCFINDAWQRDCACSREGJ»TYPETABLECI I, 
NUMOPTYPES)) = QO THEN 
BEGIN 
BADTYPES 
WHICH = OF MSGPTR $s 203 
EXIT 


ELSE 
ACSREG] = "8" THEN 
EGI 
IF ACBASE+#1) ta ABSCFINDALETTERCACINCCSREG)), 
TYPETABLECL IJ» NUMOFTYPES)) 
we 9 THEN GO BADTYPE3 
ELSE GO BADPARAM3 


END’ % Of TYPE ANALYSIS 
IF ACSREGJeC333) = 0 THEN GO BADPARAM3 
MATEHCACSREG] ¢fO842]2"SOURCE ") 
BEGIN 
IF OBJ THEN GQ BADPARAMj 
SRC :© TRUES INC(SREG)3 
Leela, atic : ENDS 
MATCHCACSREG] .COS42] e"QBVECT *) 
BEGIN 
Be ene JFE..SRC THEN GQ BADPARAMI 
OBJ := TRUES INCCSREG)3 
END; 
beeen Stee tone IF FINDAWORDCACSREGJ*¢ RESWROTABLE[1), 
NUMBFRESWROS) NE@ 0 THEN 
BADWORD? 
eet esas t: 4 Se BEGIN . 
WHICH3303 MSGPTR3#293 GO EXITS 


09800400 
00200410 
00200420 
00200500 
08200600 
00200700 
00200800 
00200900 
00201000 
00201010 
00201020 
00201100 
00201200 
00201300 
00201400 
00201500 
00201600 
00202100 
00202200 
00202300 
00202400 
00202500 
00202600 
00202700 
00202800 
00202900 
00203000 
00203j00 
00203200 
00203300 
00203400 
00203500 
00203600 
00203700 
00203800 
00203900 
00204000 
00204100 
00204200 
00804300 
08204400 
00204500 
00204510 
00804515 
00204520 
00204525 
00204530 
00204535 
00204540 
00204545 
00204550 
00204555 
00204600 
00204700 
00204800 
00204900 
00205000 


AHH MH A tt at Ht a a tA a tt OO HOH 


0000 
9000 
0000 
0000 
0003 
0006 
0008 
0008 
0010 
0010 
0014 
0018 
0019 
0020 
0020 
0024 
0029 
0029 
0032 
0032 
0032 
0036 
0037 
0042 
0044 
0044 
0047 
0048 
0049 
0050 
0052 
0052 
0055 
0055 
0056 
0037 
0059 
0060 
0062 
0062 
0063 
0063 
0065 
0065 
0068 
0069 
0074 
oo74 
0074 
0075 
0076 
0078 
0078 
0079 
0080 
0081 
0084 


t 
e @ 


ENO} 


WHICH $2 23 
BEGIN 


IF A CINCCSREG)] EQL "7" THEN 


ACBASE) t& ACSREG)],CO842]3 %& MUST BE FILE NAME 


IF LiatTeCSREG*5) EQL O THEN GO TO BADPARAM} 
IF L GE@ 2 THEN FIXUSER (SeAr EXITs FALSE); 
IF A CINCCSREG)].0333) GTR 9 THEN 

A C(BASE+S]38A (SREG).(6!842) 


ELSE GO TO BADPARAM3 
INC (SREG)3 


A CBASE*5] FBUSERCODE; 


fOk afer inp tenon ting 
seh aed 
By ls Yoo and 


EGIN WHICH 13 43 


MATCH CA CSREGI]e£6342]e"TYPE 
MATCHCACSREG) efO842)5"L0CK 


ag? co Geryeps 


007.07, £00 INC CSREG)3 
‘mee not END ELSE WHICH #3 33 
ap ward” MATCHCACSREG]e£6842)2"TO ") INC(SREG)3 
wHi ch 7b IF ACSREGJ.03!3) * 0 THEN GO BADPARAMS 


IF FINDAWORDCACSREG)» RESWROTABLEC1), 


& PE Saperks Ay & Llu. sy 


NUMOFRESWROS) NEQ@ QO THEN GO BADWORD; 


TF COMPARCACSREGJef6842),"F ACTOR ") OR 
COMPARCACSREG].(6842]."SF ") THEN 


BEGIN I 
MATCHC 


NCCSREG)3 WHICH te 73 & CHANGING SAVE FACTOR 
ACSREG] .(6842)"T0 ") INCCSREG)4 &% OPTIONAL WORD 


ACBASE*1}¢8IF SRC THEN 1 ELSE IF OBU THEN 2 ELSE 03 
IF ACSREG]eC£333) = 0 THEN % NUMBER 

BEGIN ALBASE¢2) !&© ACSREG)3 GO TO EXITS 

END ELSE GO BADPARAMS 


ENDS X% 


IF "FACTOR" 


A (CBASE+i{)i#A CSREG].66:42]3 


IF al 
BEG 


INCCSREG)] EQL "/" THEN 


IN 


IF LtaT#(SREG*S) E@L 0 THEN GO TO BADPARAMS 
IF CL Ge@ 2 THEN FIXUSER (SpAsEXITsFALSED3 
IF A CINCCSREG)1.£383] GTR O THEN. 


A 


CBASE+6]98A CSREG),(6842) 


ELSE GO TO BADPARAMS 


ENO 
ELSE 
BEG! 


N DECR CSREG)3 


A (BASE+6)18USERCODES ENDS 


EXIT! 
IF WHI 


CH NEQ 0 THEN 


IF T NEQ@ SREG = S THEN 


BEGIN WHICH #3 Of SREG 38 ST} 
MSGPTR ts 103 
END ELSE 
BEGIN 
IF WHICH NEQ 7 AND (SRC OR QBY) THEN 


BEGIN 
ACSREG]tsCIF SRC THEN "SOURCE " ELSE "QBYECT ")& 6£334533)3 


BADPARAMI 


WHICH!303 MSGPTRE88; 
EnD3 


*0518° 
30518" 
%0518° 
*0518° 
%0518° 
30518 
205189 
40518= 
%0518° 
30516" 
*0518° 
805160 


30518" 
’0518° 
40518° 
%0518* 
40518" 
40518 
40518" 
40516° 
40518" 
40518° 
40518=° 
40518 


00205100 
00205200 
00205300 
00205400 
00205405 
00205410 
00205415 
00205420 
00205425 
09205430 
00205435 
09205440 
00205445 
00205450 
00f05455 
00205500 
09205600 
00205700 
00205800 
00205900 
00206000 
00206100 
00206200 
00206205 
00206210 
00206215 
00806220 
00206225 
00206230 
00206235 
00206240 
00206245 
00206300 
00206305 
00206310 
00206315 
00206320 
00200325 
09206330 
00206335 
09206340 
00806345 
00206347 
09206330 
00206400 
00206500 
00206600 
00206700 
00206800 
00206900 
00206910 
00806920 
90206930 
00206940 
00206950 
00206960 
002806970 


AAs AHHH HEA HON VON BVO VO VHA Ast HA At HAHN NTO QO AAO BAA 


0086 
0086 
0088 
0089 
0094 
0092 
0094 
0099 
0404 
0103 
0105 
0106 
0106 
0106 
0109 
0412 
Q4t2 
0116 
0118 
0121 
0426 
0128 
0129 
0131 
0134 
0137 
0140 
0144 
0149 
0154 
0157 
0137 
015? 
0160 
0162 
0162 
0165 
0169 
0172 
0174 
0176 
0176 
0176 
0177 
0179 
0180 
0180 
0182 
0185 
0186 
0186 
0186 
0188 
0189 
Q192 
0493 
0195 


END} 
ERRSw t= ACSREGJ3 
CHANGEWHICH %# WHICH3 
COMMENT COMPILER CHECKS 
IF WHICH ESL 1 OR WHICH EQL 2 THEN & COMPILER NAME SPECIFIED 
IF CHECKBITCCACBASE¢1]"1) DIV te RESTRICTEDLANGUAGES) THEN 
BEGIN CHANGEWHICH s8@ 03 MSGPTR #8493 END; 
END OF CHANGEWHICHS 


GUO EIN ISRO IIOIIIEINI IIS IDI Ohi tiki ainiik 
BOOLEAN PROCEDURE TIMECHKCLCWsA)% BOOLEAN LOWS ARRAY ALO]; 

Ree eee REE ERE EEE ERENT EEE EEE NEARER ae 
COMMENT CHECK USERS TIME PERIOD FROM 24 BIT STRING} 

BEGIN INTEGER TIMLoTIM2eSKP3 BOOLEAN OKs LABEL EXIT; 


EP RESERSESRERASRERSES ERE REESE ESE EE 
BOOLEAN STREAM PROCEDURE TIMCKCSTRGsSKP,TIMI 24 VALUE STRG3 
Leg ree 
BEGIN LOCAL 5K3 LABEL EXIT; 
SlasbLoc STRG3 SIltaSie+as & POINT TO 24 BIT “"TIME™ STRING 
DIitelLoc STRG} OS'#4 CHR3 % EXTEND TO 48 BITS 
SlesSkPs OlsetQc SK} DStaewOS3 4 NO OF BITS TO SKIP CCRNTeTIME) 
SItshLoc STRG3; SKIP SK SB3 %& POINT TO CURRENT HOUR 
IF SB THEN TALLY##13 TIMCKESTALLYS TALLYS #SK3 
24(IF SB THEN JUMP OUT ELSE % FIND 15ST "ON" BIT POSITION 
BEGIN SKIP SBF TALLY&aTALLY*i3 END)3 x COUNT EACH aft SKIPPED 
IF TOGGLE THEN ELSE GO TO EXIT# & NO BITS "ON® 
SKISTALLYS STtMLOG Ske OLteTImdis OStewOSs % AST "ON" BIT POSITION 
TALLY SSTALLY#13 % POSITION OF NEXT BIT 
SKtsTaLhLY; Sys*LOC SKS DI seSKps OStRWDS; 
EXIts END STREAM PROCEDURE TIMCKS 


oP RRSP ACRSOSE REAR ECAR ESE ERR REEL SE 
REAL STREAM PROCEDURE NEXTIME(STRG*SKpsREM)} VALUE STRG*SKPp? REM; 
PERRRRERAESESE RESALES AR ERE ER EERE SEE EY 
BEGIN STISLOC STRGS SI8*SI+4; DIS#LOC STRGZ OSSE4CHRE ZEXTEND 
DI#sLOC NEXTIMES SI$#LQC STRGS SKIP SKP SBs % POINT TO NEXT BIT 
REMC(Ip SB THEN BEGIN SKIP SBF TALLYt@TALLY#43 END 
ELSE JUMP OUT) % FINO NEXT "0" BIT 
TALLY sTALLY#SKP) NEXTIME SSTALLYS 
END STREAM PROCEDURE NEXTIMES 


Lee R TREAT ERE RE 


PROCEDURE TIMEMSGC(STRTIMEsFINTIME s OK )3 


PEPECET OOS O SOCCER SEES SEES EE SERLS LESSEE 
VALUE STRTIMEsFINTIMESOKS INTEGER STRTIMESFINTIMES BOOLEAN QK} 
BEGIN 


‘* @ 


27 15 


00806980 
00g07000 
00207100 
00207110 
00207112 
0@207114 
00207116 
00207200 


213 LONG 


00224400 
00224500 
00224600 
00224700 
00224800 


START OF SEGMENT 


00224900 
00225000 
00225100 
00225200 
00225300 
00225400 
00225500 
00225600 
00225700 
00225800 
00225900 
00226000 
00226100 
00226200 
00226300 
00226400 


00226500 
09226600 
09226700 
00226800 
00226900 
00227000 
00227100 
00227200 
00227300 


00227400 
00227500 
00827600 
00227700 
00227600 


T 
T 
T 
T 
T 
T 
T 
T 
, 


ee ee ee ee eee eee Se | 


| 


4-44 


0195 
0195 
0296 
0196 
0196 
0198 
0202 
0205 
NEXT SEG 


0061 
0061 
0064 
0064 
00614 


Terres 2 ey 


0000 
0000 
0000 
0000 
0000 
0000 
0004 
0004 
0002 
0004 
0005 
0007 
0007 
0008 
0009 
0010 


Oo1l 
0041 
0011 
0011 
0012 
0013 
0015 
0017 
0017 


0018 
0018 
0016 
0018 
0018 


) 
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TPR PEC ERP PRR REE RE ERE SSSR EPO S| 


STREAM PROCEBURE MSGICWORK)3 


TPR ERE RRSAESARSESRAR EERE SE REE EEE ee 
BEGIN DytaWoRK3 
DSIs4OLIT"SORRYsYUU ARE NOT SCHEDULED FOR TIME AT THIS HOUR"S 
END MSGq3 


TORRE RE ESE RRRARA RRS AEE EAR R REESE 2 
STREAM PROCEDURE MSG2(WORKsSTRTIME*FINTIME)3 VALUE STRTIME*FINTIMES 
(OP ERS ECE CERERAREE REESE ECR RELEASES 
BEGIN DI teWORK3 
DSt=33LIT"YOUR NEXT SCHEDULED TIME IS FROM "3 
SItsLoc STRATIMES OSt"4 DECS DSte4 LIT * TO "3 
SI#sLOC FINTIMES DSt#4 DECS 
END MSGo3 


[TOC LSPA CSO SLCC CEST LC LAE LAST LTTE. 


STREAM PROCEBURE MSG3(WORK)3 
CIT SET TOT CeCe PC PPLE C eT eLerel care 
BEGIN Dy&%=wORK3 
DStadoLIT"PLEASE CALL BACK AT YOUR SCHEDULED TIME,"3 
END MSG33 


PEO ESET ECC PECSC CECE SEES CCC SCOLES SLE ES 
STREAM PROCEDURE MSG4(WORKesFINTIME)S VALVE FINTIMES 
IPR REPRE RSS E ARS CE CLEC E SESS EEE SES 
BEGIN OLT%sWwORK$3 
DOSte4aLIT*YOu ARE SCHEDULED TO USE THE SYSTEM UNTIL "3 
SI*sLoc FINTIMES DSt#4 DEC} 
END MS6qa3 


TOPS E TESTE LESTE LELISEC ECCLES Lier. 


IF QK THEN 
BEGIN MSG4CWORKsFINTIME)S TWXOUTCLL»WORKEO)»4602)3 END ELSE 


BEGIN MSGICWORK)# TWXOUTCLLeWORK(0)54992)3 
MSG2CWORMsSTRIIME SFINTIME)S TWXOUTCLL»WORK(O) 945% 2)3 
MSG3CWORK)S TWXOUTCLL»WORK(OJ24022)3 ENDS 

END TIMEMSG3 


EOE PEPE RE SCE SRR ECE RRR EES ECE See ee 2 


00227900 T 0018 


09228000 


START OF SEGMENT 


e9 Is 


00228100 
00228200 
00228300 
00228400 


00228500 
00228600 
00228700 
00228800 
00228900 
00229000 
09229100 
00229200 


00229300 
00229400 
00229500 
00229600 
00229700 
00229800 


00229900 
00230000 
00230400 
00230200 
00230300 
00230400 
00230500 


00230600 
00230700 
00230800 
00230900 
00231000 
00231100 
00231200 


41 LONG 


00231300 


o * s 


T 


0018 


HERKEN EY 


att 4a st i 


ee ee ee ee | 


T 
T 
T 
T 
T 
T 
T 
’ 


T 


0000 
0000 
0000 
0006 


0007 
0007 
0007 
0007 
0007 
0011 
0013 
0013 


0013 
0013 
0013 
0013 
0014 
0019 


0019 
0019 
0019 
0019 
0020 
0025 
0026 


0026 


0026 
0027 
0030 
0034 
0037 
0040 
NEXT SEG 


00168 


29 


28 


pet 
lit 


Wiltee See tie Sy 


Bea Wa HRA ENHERHEKNEN HK 

IF REALCBOOLEANCTIMELIMITS.,C24824)) EQv 

BOOLEANCREALCNOT FALSE),C24824))) EQl REALCNOT FALSE) % ALL ON 
OR TIMELIMITS.£€24824] EQL O THEN & NO BITS ON 

BEGIN TIMECHKS*TRUEZ TIMERESTRICTBITSBREALCFALSE)3 GO EXIT; END; 
TIM12e03 TIM2Z¢3SKPtaeTIMEC1)/216000 = 0,55 %& CURRENT TIME 
QKteTIMCKCTIMELIMITSsSKP»TIM1)4 TIMLtaCTIM1 MOD 24) x 1003 
TIM2t mC NEXTIMECTIMELIMITS,SKP,TIM2$e24"SKP4+TIM2) MOD 24)x1003 
TIMEMSG(TIMisTIM2s0K)3 % SEND APPROPRIATE MESSAGE 
TIMERESTRICTBIT &* REALCTRUE)4 NOTIFYBIT 82 REALCFALSE)3 
NOTIFYTIME $# O3 TIMECHK i QKS 

EXIT!’ END PROCEDURE TIMECHK3 


BARGE E HE TEE NER EEE ERREREN EERE EEE ERE E EEE ET HEREREEN EEE TEER ERT HARE EN 


PROCEQURE QUTPUTNUMBERS(LCWsA)s BOOLEAN LCWS ARRAY ALOJS 


TTT RET TEST TESTE TEE TTIETIE LITTLE TLE TLE Lirritiiiit Tt 


BEGIN 

% FORMATS SEQUENCE NUMBERS FOR SPECIaL DEVICES 
% on CLEARS SCREEN 

% "4n HOMES CURSER ( CONRAC ONLY ? 
2 "in LINE ERASE (¢ CONRAC ONLY ) 
% On SHIFT GUT CHARACTER 

% @MK SHIFT IN CHARACTER 

% "en SHIFT CONTROL CHARACTER 

% "en LINE FEED (CONRAC ONLY) 

% ten CARRIAGE RETURN 

% ARROW END OF TEXT CHARACTER 

REAL IsPTReLSTeINC3 BOOLEAN LFS 


® ® 
STREAM PROCEDURE ADDRESS( 
GIN SIisWs ADDRESSIaSI3 E 


% CONVERTS SEQUENCE NUMBER TO DECIMAL FORM AND BLANKS 
% LEADING ZEROSs UPDATES PTR aT FINISH 

SIimLOC NS OLSSLOC Vs DSteO8DECS DItsDI1 "83 OSts7FILL3 
SrtsLOc V3 OLSaPTRE OF teOl*Ss Dt ees 

BCIF SCa” " THEN SJ taSte1 ELSE DStaCHR)3 

SvieDys STHSLOC SVF OssPTRE DSsewdS; 

END STREAM PROCEDURE CONVERTANDFORMS 


TEU PRREEEEUEEEREEE ERO CRUEP EPEC E PELE Pe Pee errrererrerrrererrrrrere rrr ri 


STREAM PROCEDURE PUTCHARC(PTReNsCHAR)$ VALUE Na CHARS 


eee hone eeeonteonanteCeenateeeoeneatetene 


Meee r cere eres nae PeneA Hae ee eD een ene seer eHear eee ee tenetereeesennenes 

STREAM PROCEDURE CONVERTANDFORMCPTReN)S VALUE NS 

 POTeCPePeRePEPePEEreRererereer rere er ere eee ee eee ee ee ee 2 ee ee ee 
BEGIN Local Ve3Sv3 


28 15 


00231400 
00231500 
00231600 
00231700 
00231800 
00231900 
00232000 
00232100 
00232200 
00232300 
00232400 
00832500 


56 LONG 


00234600 
00234700 
00234800 
00234900 
00235000 
00235100 
00235200 
00235300 
00235400 
00235500 
00235600 
00235700 
00235800 
00235900 
00236000 


START OF SEGMENT 


00236100 
00236200 
00236300 


00236400 
00236500 
00236600 
00236700 
00236800 
00236900 
00237000 
00237100 
06237200 
00237300 
00237400 


00237500 
00237600 


T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
r) 


AHH tA Hato HH 


Atte AHH 


0018 
0018 
0020 
0021 
0023 
0028 
00314 
0036 
O04] 
0042 
0047 
0049 
NEXT SEG 


0064 
0064 
0064 
0064 
0064 
0064 
0064 
0064 
0064 
0064 
0064 
0064 
0064 
0064 
0064 


Reve tekew 


0000 
0000 
0000 


0004 
0004 
0001 
0001 
0002 
0002 
0002 
0003 
0004 
0006 
0007 


0007 
0007 


8 
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Se yap ee So 


§uore Bu tice. 7 


i 
& @ 


PORTE PEPE EPPEEUEUEEE EE PCE PELEPELTTerererreerereereerererrerrrrrrres 
BEGIN LOCAL Sv3 | 
% TRANSFERS "N" CHARACTERS FROM "CHAR™ AND UPDATES 
* PTR AT FINISH 
SresLoG CHARS OTtsPTR3 OF 8807453 OL 8s0Cs 
SyemS7+8s STUSSTONS DSIRN CHRS 
SvisDIs STsslLQC SVJ DJ tePTRs OStewOS;3 
END STREAM PROCEDURE PUTCHARS 


LSTIRSEQLASTS INCESINCREMENTA PTR&RADDRESSCWORK(IO] 24 
IF DEVICESBIOS THEN PUTCHARC(PTRedo"s")3 & CLEAR THE SCREEN 
IF CLF &spEVICESCONRAC) THEN PUTCHARCPTRele"4")3 & HUME THE CURSER 
FOR yes STEP 1 UNTIL 10 DO % WRITE OUT 10 SEQUENCE NUMBERS 
BEGIN 
PUTCHARCPTReage">4")3 & SHIFT OUT» SHIFT CONTROL 
CONVERTANDFORMCPTRe(LST&BLST+INC))2 & FORMED SEQUENCE NUMBER 
PUTCHARCPTRsee2(1228¢%%")03654256])3 & SHIFT CONTROLs SHIFT OUT 
Ip I &SS 10 THEN & FORM CARRIAGE RETURN AND LINE FEED 
BEGIN 
PUTGHARCPTReis"*")3 % CARRIAGE RETURN 
IF LF THEN PUTCHARCPTRels"w")3 & LINE FEED 
ENDS 
END I LOOP} 
PUTCHARC(PTRs {sLEFTARROW)S %& TERMINATE STRING WITH ETX 
CHKSEQNMBRE aL STS % LAST SEQUENCE NUMBER TO BE TRANSMITTED 
TWXOUTCLLe WORKEI OJ» 2002"1)3 % SEND SEQUENCE STRING 
END PROCEDURE OQUTPUTNUMBERS3 


OCS CAPE PSCC SITCC SEL ELCSL ELSES COLL SCILCS ESOC LISELI LACLL LALIT TLL 
% FORWARD DECLARATIONS GO HERE, 

OSC REPRE SC CCLOCCCLI SSS ELESSCCICESE SCLC CS ECLA TAILLE t 
PROCEDURE BYECLCWe2A)3 BOOLEAN LCWS ARRAY ALO]3 FORWARD; 

PROCEDURE GETSOMETHINGTODOC(LCWsA)3 BOOLEAN LCWS ARRAY ACOJS FORWARDS 


PROCEQURE SSMSGJ FORWARD} 
PROCEDURE REMEMBERTHISC(LOW)3 BOOLEAN LCWS FORWARD} 
PROCEDURE MCPMSG(LCW2A)§ BOOLEAN LCWS ARRAY ACO)3 FORWARD3 


PROCEQURE LINECLEAR(LCW2A)s BOOLEAN LCWs ARRAY ACOJ3 FORWARDS 

PROCEDURE SETUPFILESCLCWsA)3 BOOLEAN LCWS ARRAY ACOJ3 FORWARDS 
PR@CEDURE DQOGCATCHERCLCWPA)S BOOLEAN LCWs ARRAY ACOJ3 FORWARD 

Pere CCP Pee PCCP PPE ere re ei CTC TTT TIL Ti Lirrrtrirrrirrtrity 
REAL PROCEDURE GETPSWOCWORKs STACK» MAX*E ADRS 2} 

TOPE Cee PEC Te errr rier TesciririrtrirritriritiriT 
VALUE MAX*EADRSS REAL STACKsMAXsEADRSs WORK 

BEGIN LABEL DUMMY; 


REAL STREAM PROCEDURE GTPSWO(WORKs STACKsMAX*#EADRS)S VALUE MAXsEADRS3 
RW RE EERE HEHEHE EW ERERAREE RANE ATER RERE RED NRNEEK 
COMMENT SPECIAL SCANNER FOR OBTAINING PASSWORD ANO/OR CHARGE 
WHICH MAY START WITH A DIGIT AND CONTAIN SPECIAL CHARACTERS; 

BEGIN LOCAL SV+DVseDNeHe NS LABEL LOOPS,EXITS 


30 15 


00237700 
00237800 
00237900 
00238000 
00838100 
00238200 
00236300 
00238400 


00238500 
00238600 
00238700 
00238800 
00238900 
00239000 
00239100 
00239200 
00239300 
00239400 
00239500 
00239600 
00239700 
00239800 
00239900 
00240000 
00240100 
00240200 


46 LONG 


00900000 
00900100 
09900200 
00900300 
00900400 
00900500 
09900600 
00900700 
00900800 
00900900 
09900910 
00901000 
00901005 
00901006 
00901007 
00901008 


START OF SEGMENT 


00901009 
00901010 
00901015 
00901020 
00901025 


~ tp © 


AAAs a4 


T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
tJ 


ee ee ee ee ee ae ee ee ee ee ee ee ee ee ee eee 


0007 
0007 
0008 
000g 
0008 
0009 
0010 
O04 


0011 
0016 
0019 
0022 
0024 
0024 
0025 
0028 
0030 
0034 
0034 
0033 
0035 
0035 
0037 
0039 
0040 
0042 

NEXT SEG 


0064 
0064 
00614 
0061 
0064 
0061 
0064 
0061 
0064 
0064 
0061 
0064 
0064 
00614 
0064 
0064 
eekhetnhe 
0000 
0000 
0000 
0000 
0000 
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DItspADRS3 OStaelLIT LEFTARROWs % ENO OF RECORD MARK 
SItewORKs OLsFSTACKS ONteDT3 
63CIF SCa™ © THEN SIT8sSI41 ELSE YUMP OUT); 
IF ToGGLE THEN GO TO EXITS % BLANK RECORD 
IF Sc#"H" THEN & CHECK FOR "RELLO"™ 
BEGIN 
DTeeLOC Hs OSSRS5L IT HELLO"S OL tsdp753 
IF 5S8cs0¢C THEN ELSE SIteS1°53 
END3 
MAXCOISSDN3 DSS aBLIT"0 
LOOP? 
IF Scat » THEN BEGIN SI8%sSI+14 GO TO LOOPS END3 
IF Seca", THEN BEGIN SIsaSI¢13 GO TO LOOPS ENDS 
IF SC#LEFTARROW THEN % CHECK FOR END OF RECORD 
BEGIN 
SvisSys SLURLOC SVE ST seS]+53 
Dyvi#OT3 OIieLOC EADRSS OL8FO1 453 
Ip 3S¢c#0¢ THEN JUMP QUT TO EXITS 
Sysasys Oy tsDvs 
ENO, 
DSISCHRS TALLY#t=]3 
6OCIF SC#" " THEN JUMP OUTS IF SC="%s" THEN JUMP OUTS 
TE SC#LEFTARROW THEN 
BEGIN 
SVseS]s SIts_oc Svs SIesSI+53 
OVs#DIs OL esLOC EAORSS Ol swO1 +53 
IF 35¢#0C THEN3 
SteaSvs OLteOvse IF TOGGLE THEN JUMP QUT; 
ENDS 
DSteCHRs TALLY #aTALLY$] 22 
HisTALLY3s SveeSls STIFLOC HS STsxSIl475 DI teON3S DSSSCHR & SIZE 
OTt#pl4¢73 ONszOls ST#*#SvV5 
TALLYSSN3 TALLYt@TALLYo13 NSaTALLY)s & END "MAX" LUUP 
EXITS 
TALLYS3N3 GTPSWDESTALLY3 
END STREAM PROCEQURE GTPSWps 


"3 Olsaple73 


GETPSWOL=GTPSWDCNORKs STACK »MAX* EADRS)3 
END PROCEDURE GETPSWO3 


LETS CEPOL T TE TET COLI LOTTE TELE ILIELI TTT TTT LITE LETTE TTT | 
PROCEDURE HITHERE CLCWs AXS BOOLEAN LCWs ARRAY ALOVS 
TTT ET TCE E TTI CECI CST TI CI SOTAT TT CITC TTI TSTTTILi Ti LTT Teil riti tittle 


BEGIN 
STREAM PR@CEDURE ANSCW)3 


BEGIN O1 ta We 
BS 1% 24 LIT "ENTER USER CODEs PLEASE®"3 
END ANS3 


31 1S 


START OF SEGMENT 


* 
00901030 T 0000 
00901035 T 0000 
00901040 T 0004 
00901045 T 0004 
00901050 T 0004 
00901055 T 0005 
00901060 T 0005 
009010605 Tt 0007 
00901070 T 0008 
00901075 T 0008 
00901080 T 0010 
00901085 T 0010 
00901090 T 0012 
00901095 T 0014 
00901100 T 0014 
00901105 T 0014 
00901110 7 0015 
00901415 T 0016 
09901120 T 0017 
00901125 T 0018 
00901130 T 0018 
09901135 T 0018 
009011440 T 0020 
090901145 T O02, 
00901150 T 0024 
00901160 T 0022 
00901170 T 0023 
00901180 T 0023 
00901190 T 0025 
00901200 T 0025 
00901210 T 0026 
09901220 T 0027 
00901230 T 00ze 
09901240 T 0030 
00901250 T 0030 
00901260 T 0031 
00901270 T 0032 
00901280 T 0036 

39 LONG» NEXT SEG 
01000000 T 0064 
010900100 T 0064 
01000200 y 0064 
01000300 T 0064 
01000900 T 0064 

KREKREEEE ED 
01001000 7 0000 
04001100 T 0000 
04001200 T 0003 


8 


Je 


es 


eer are EB TRE igs on 


I 
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STREAM PROCEDURE LNOCWrToUCoLL Ds VALUE Tels 
BEGIN 
LABEL AFT*#EVES 
Dr te Wi 
Sy ts LOC T3 ST ts SI+73 


Ie SC # "A" THEN DS t# 14 LIT "GOOD MORNINGs * 


ELSE 
BEGIN SI %* LOC T3 
IF SC LSS "1" THEN 
BEGIN UPS} 
IF SC LSS "6" THEN 
AFT OS $™ 16 LIT "GOOD AFTERNGONs * 
ELSE 
EVE3 BS s# 14 LIT "GOOD EVENING, " 
END 
ELSE 
BEGIN 
WPS} 
IF SC = "2" THEN GO AFT ELSE GO EVE; 
END} 
ENDS 
Sy sm UC3 ST t* SJ + 43 
DS §* 15 CHRS 
DS t= 18 LIT " YOU HAVE STATION "3 
St t= LOC LL3 DS 4% 2 DEC3 
DS t# &@ LIT ™ "3 
EnD OF LNOS 


STREAM PROCEDURE PSWRD (W)3 
BEGIN 
LocAL T3 
Dy ts WO) 
DSE*A7LITMAND YOUR PASSWORDS 
% VOID 
END PSWROJ 


STREAM PROCEDURE CHRGC(W)3 
BEGIN 
Dy 38 W3 
DS t% 18 LIT "ENTER CHARGE CODE="; 
END CHRG3 


LABEL STARTs ERR* BADP EXIT Te SCHED» CASE4s START ANEW} 
LABEL WINOUPsPSWO»LOGGONse CHARGsNEXTBLOCKS 

INTEGER | 13 

REAL TeUSRoF ILS 


01001300 
01001400 
01001500 
01001600 
039003700 
01001600 
01001900 
01002000 
01002100 
03002200 
01002300 
014002400 
01902500 
01002600 
01902700 
01002800 
01002900 
01003000 
01903100 
01003200 
01003300 
01003400 
01903500 
01003600 
01003700 
01003800 
01003900 


01004000 
01004100 
01004200 
01004300 
01004400 
01004500 
01004600 


01004700 
01804600 
018604900 
01005000 
01905100 


01005200 
01005300 
01005400 


01005500. 


‘@ @ 


ts ts a st st ot tt st 


a 


Se ee i on | 
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0003 
0003 
0004 
0004 
0004 
0004 
0007 
0007 
0007 
0008 
0009 
0009 
0012 
0012 
0015 
0015 
0015 
0015 
0015 
0016 
0016 
0016 
0017 
0017 
0020 
0020 
0024 


0021 
0021 
0022 
0022 
0022 
0024 
0024 


0025 
0025 
0025 
0025 
0027 


0028 
0028 
0028 
0028 


Pree 


BOOLEAN MTCH3 
CASE DOING OF 


BEGIN 
BEGIN % CASE 0 eave r eh ere raae tenet soar heeeetenatenepeeeearanner 
IF LOGGEDON THEN 


BEGIN 
IF SCHEDULINE THEN GOERRC"HELLO 24093 
IF FILENAME NEQ@ O THEN 
IF TPCQUNT NEQ O OR FILENAME NEQ@ SOURCEFILE THEN 
IF NOT NOSAVE THEN 
BEGIN 
NOSAVES=TRUES GOERRC"NQ SAVE"S48)3 
END3 
@LEARCACBASE]23)3 % ZERO OUT 4 WORDS OF STACK 
TESGETPSWOCWORK( 1) > ACBASE¢1)+3-WORKENDADRS)3 % "HELLO" [NPUT 
IF T GTR QO THEN & GOT SOMETHING AFTER "HELLO" 
COMMENT PROCEDURE "BYE" DOES NOT DISCONNECT WHEN 
ACBASE] GEQ 50.5 DOES NOT PRINT MESSAGES WHEN 
ACBASE] GEQ 1003 
BEGIN ACBASEJ#a1244T3 
BYECLCWeAC#])§ LOGOFF CLCWsAl*) D3 
GO TO PSWD3 
ENDS % IF PARAMETERS TO HELLO 
ACBASE) t# 753 & FLAG AS HELLO 
BYECLCWs AC#))3 LOGUFFCLCW,AL#) D3 
TAM te VHELLUS 
WANT %# WAITFOR $5 O38 
RNDS &% IF HELLO 


IOTOT 85 ETIME $= PTIME 3% INPUTCTR 3% 03 


IF 


STARTS IF 
STARTANEWS 


SCHEOULINE THEN 

BEGIN 
ACBASEJ#%1263 ACBASE*1 I$ "USERCODES 
GO TO PSWD3 

ENDs & IF LOGGEDON 

NOT LOGGINGON THEN 

BEGIN 

ANSCWORK)3 

TWXOUTCLL» WORKECO)>» 24% NOCRLF D3 
LOGGINGON &t% TRUE 

END3 


DOING ta 13 

FILESOK %® FALSE3 
WAITFOR &&% VINPUT3 
AL BASE] &STEMPts53 


END OF CASE OF &% sncccrevnernnteaenenne errr et oeneenenseereence 


BEGIN % CASE 1 


CHC HH HHO EHHAOHHEH ROH HOR HHO HEHEHE RH eRER EOE 


CLEARCALBASE]#3)3 & ZERV OUT 4 WORDS OF STACK 
TteGE TPSWOCWORKE 1) ,ACBASE4+1)+3,WORKENDAORS)S LOGGINGONISTRUES 


IF T = 0 THEN GO TO ERRA & NO INPUT 


IF 


YOUFINOAVERB CACBASE*1 J+ VERSTABLECO)»+NUMOF VERBS) THEN 
BEGIN IF ACBASE41),CF NEQ VHELLO THEN 
IF ACBASE+1]eCF = VBYE THEN 

BEGIN 

TAM 8% VBYE3 USERCODE 8% "GONE “s 

TOTOT t# ETIME ts PTIME 8% INPUTCTR #8 O3 

DOING t* ACBASE) ta Q3 

GO EXIT 


* 


03005510 
01005600 
01005700 
01005800 
01005900 
01006000 
01006100 
01006110 
01006120 
01006130 
01006140 
01006450 
01006160 
01006170 
01006200 
01006300 
01006400 
01006500 
01006600 
01006700 
01006800 
01006900 
01907000 
01007100 
01007200 
01007300 
01007400 
01007500 
01007600 
01007700 
01007800 
01007900 
01008000 
01008100 
01008200 
01008300 
01008400 
01008500 
01008600 
01008700 
01008800 
01008900 
01009000 
01009100 
01009200 
01009300 
91009310 
01009400 
01009500 
01009600 
01809700 
01009800 
01009900 
01010000 
01010100 
01010200 
01010300 


AA HA MH HAHAH HHH HH HH A ot Ht at tt Ht tt st at tt tt tt a Ht 


Ss 


4227 


cilec Pe eenihg ol Ret SY : 


acre Bus 


ERR3 


PSWO3 


END % IF BYE 


ELSE 
LITOUTC™FUNNY ee "e103 % IF NOT HELLO 
MSGPTR 38 243 
GO TO STARTANENS 
ENDS % IF A VERB ¢ OR NO INPUT ) 
ACBASE) 33 124 + T;3 
IF ¥ LSS 2 THEN & NO PASSWORD GIVEN YET 
BEGIN PSWROCWORK)3 
TWXOUTCLL»WORKCOJ) 9179103 
IF ACBASE) LSS 126 THEN % NO PASSWORD GIVEN YET 
BLACKOUT: 
GND: 
Ite CCACBASE+1].0O821] * ACBASE4+11e£27321)) MOD 29) + 13 


NEXTBLOCKS 


* VOIO 


CASES! 


LLOISKREADSSUSERBASE+T3 40321" 
DOING #3 23 

WANT 8 VDISKREAD3 

TEMP i=aas % MUST NOT BE 4 = SSFILE USES AS FLAG %0523° 
END CASE 15 & aovneerevereng rere eeeeenoe he nresenneerenssees 
BEGIN x CASE 2 eeonaeteoteeres eae teaesetoneseoenseeaeteeeeoeventeogene 


FOR T t® O STEP 2 UNTIL 28 00 
MATCHCWORKET) 2 ACBASE +1) 0£6%42)) 
BEGIN 
USR gs WORKED T41),033315)]3 % RELATIVE DISK ADDRESS 
USERLOC t®USERBASES+USRI 30521" 
LLDISKREAD %* YSERLOCS 
WANT 3” VOISKREAD3 
DOING $# 33 
GO EXIT 
ENDS 
IF CTemwORKC1)-046815)) GTR QO THEN GO TO NEXTBLOCKS &LINK 
WORKE 1) 85 “aeanwewu"™3 & IF NOT MATCHED 
DOING 488 33 
END CASE 23 % goaveetoeornrer renner et eee PH tenet eneoeneeernne 
BEGIN x GASE 3 @seeaeteteveeeeneaonoeveenvneeewne kee eoeaeeeeeaneeatonvene 
RESTRICTEOLANGUAGEStsWORK(8)3 
MOVE C2eWORDSSWNORK(OISRESTRICTEDVERBS D3 
IF SCHEDULINE THEN 
BEGIN 
WOGONCLOWsAC*])245 GO TO SCHEDS 
ENDS 
USERCODE s#WORKC1)3 
ACBESES6)#SWORK([2]5 % SAVE PASSWORD 
CHARGE 8 BWORK(3)3 
TIMELIMITS2 WORK(7]3 
OPRTIONBITS#3WORKC11)3 & USERS "SPECTAL” OPTIONS 
MOVES 2eWORDSsWORKEI GJ) s,ACBASE*#4))3 & NAME FROM USERS FILE 
IF ACBASE) GTR 125 THEN GO TO CASES} % HAVE PFASSWORD 


DOING 4a 43 

WAITFOR &* VINPUT3 

END CASE 33 % pennentrnecrearens renee reneeneeereepereereroer 
BEGIN % CASE 4 eoevenrererererenreneen anes eneneeeenareeterene 
If ACBASE] LSS 126 THEN % NO PASSWORD GIVEN YET 

ACBASE] Se 1e54+GETPSWOCWORKE LJ sALCBASE +2) s2eWQORKENDADRS) 3 
LOGGINGON $= FALSE3 


01010400 
010140500 
019810600 
01010700 
01010800 
01010900 
01911000 
01011100 
01911200 
01011300 
01011400 
01011500 
01911600 
03011700 
01011710 
01911800 
01811900 
01012000 
01042100 
01012200 
01012300 
01012400 
01812500 
01912600 
01012700 
01012710 
01012720 
01912800 
01012900 
01013000 
01013100 
04013110 
01013200 
04013300 
01013400 
01013500 
01013600 
01913700 
01013800 
01013810 
01013820 
01013830 
04013900 
01014000 
01014100 
01014110 
01914200 
01014210 
01014300 
01014400 
01014500 
01014600 
01044700 
01014800 
01614900 
01015000 
01035300 


Em ns st st st a te 8 tt HA Ht DA DH tt a Ht a 


0126 
0126 
0126 
0127 
0129 
0134 
0131 
0132 
0133 
01435 
0137 
0138 
0139 
0139 
0143 
0144 
0145 
0146 
O147 
Q148 
0148 
0148 
0150 
0150 
0154 
0156 
0158 
0159 
0160 
0161 
0164 
0163 
0166 
0167 
0168 
0169 
0169 
0170 
0172 
0173 
0174 
0178 
0178 
0179 
0161 
0183 
0164 
0186 
0188 
0190 
0190 
0194 
0194 
0192 
0192 
01993 
0199 


S @ 


CHARGS 


BAD Ss 


LOGGON! 


MATOHCUSERCODEs# AC BASE 41) .06%42)) 
MATCHCACBASE +6 J» ACBASE+2)4(6142)) % PASSWORD 
BEGIN 
MATCHCACSBASE J *USERCQDE) MTCH $* TRUE} 
IF RESTART AND NOT MTCH THEN % SCRATCH "OLD" WRK FILES 
BEGIN 
USRISACSBASEJ TUPLLAL3ICSIEGLS7TIS FIL SSMAKEPNC" 1S" LL 23 
REMOVEFILECToFILsUSR)3 
REMOVEFILECToFIL» £6836) 2USR)3 
REMOVEFILECToFIL&™P™CL2ta2s6]eUSR)3 
REMOVEFILECTo FILG"T™C1284286]eUSR)3 


END3 
IF NOT RESTART OR RESTART AND NOT MTCH THEN % CHECK TIME 
IF NOT TIMECHKCLCWs2A) THEN 
BEGIN WORK(O)§="$0 "3; WORKCO),CISHOIIaLEFTARROWS 
TWXOUT(LL®WORK(OJ* 3e"1)3 % DISCONNECT THE LINE 
TAMSSWANTSSWAITFORS#0O3 GO TO EX]T3 


ENDS 
IF GHARGE = 0 THEN % CHARGE CODE NEEDED 
BEGIN IF ALBASE] * 127? THEN % CHARGE ALREADY INPUT 
BEGIN CHARGE %* ACBASE+3).(06342]3 
GQ TO LOGGONS 
END & IF ACBASEJ8127 
ELSE % ASK FOR IT 


BEGIN 
CHRGCWORK)S TWXOUTCLL eWORKIO]218*/NOCRLF D3 
WAITFORS SVINFUT3 
DOING ts 53 
GQ EXIT; 
END3 4% ASKING FOR CHARGE 
END % IF CHARGE # 0 
ELSE GO TO LOGGON; 
ENDS % IF MATCHED 
USERCODE % 03 
LITOUTCYBADCODE™+1)3 
MSGPTR $= 213 
GO TO STARTANEWS 
END CASES} % PORORHH OPES EHH DESEO EHRHR HERE HERA EH EERE ROHR E NEES 
BEGIN % CASE 5 ceonccecernreee ep taseeeerneeeseeteneresennrarerees 
TESGETPSWOCWORKC1 J sCHARGE +1 sWORKENDAORS)3 CHARGE,C185)%303 
IF T # 0 THEN GO TO CHARGA % MUST INPUT SOMETHING 
LOGONCLC WAAL) 23 
TOTOT 32 ETYIME ts PTYME 8 INPUTCTR ta O3 
WAITFOR 3@ TAM ta VLISTNEWS3 
FINDCLLSIAMEL 33941497) 205 "NEWS "S"CANDE “s"SITE ie 
DOING 38 63 
END. CASES? % PO RHA COREL HERR R HHH RER RH EH HCOOH OREN EH ERE OER 
BEGIN CASE 6 eorpeveaensePnenet ep pe taaeeeeaeaespenseeonaeteneaeenee ener e 


IF EVENTSC4] LE@ O THEN GO TO WINDUPS % NO FILE 


IF EVENTS £3) LSS O THEN GO TO WINDUPS %* NO RECORDS %40523° 
LLOISKREADISEVENTS £€27,018315)3 | 30523" 
WANT t# VOISKREAD3 

DOINGis23 % TRANSFER TQ 40523* 
TAMiavSSFILES % SSFILE %0523" 
A CBASE*3] ILL 40523° 
END CASEGs % eRe eee errr eee eee e ee Pere rere se rrrereren yr © 


BEGIN %&% CASE 7 govnvcetencecert eer errr reese ron eneneaenetenonn 


01015200 
01015300 
01015400 
01015500 
01915600 
01015605 
01015610 
01015615 
01015620 
01015625 
01015630 
01015635 
01615700 
01015800 
01015900 
01016000 
019016100 
01016200 
01916300 
01016400 
01016500 
01016600 
01916700 
01016800 
01916900 
010147000 
01017100 
01017200 
01017300 
01017400 
01047500 
01017600 
01047700 
01017800 
01017900 
01018000 
01018100 
01018200 
01018300 
01018400 
01018500 
01018600 
03018700 
010188600 
01018900 
01019000 
04019100 
01019200 
01019300 
01019350 
01019400 
01019500 
01019550 
01019600 
019019650 
01019700 
01019800 


AHO VO A VO att a St tH At st A tt tt tt tA Ht tt tt tt a tt 
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WINDUP! IF CCLONG THEN CCCOMCLL*USERCQDEs1)3 % SET LUNG CARRIAGE 


IF QUICKLOG THEN GO TO SCHEDS x DONT PRINT GREETINGS 

WORKCO] 8% DATES 

TIMEOFODAY CWORKCIJs TESTIMECONVCLOGONTIMEs TRUE) 3 

TWXOUTCLEL*WORK(O]21601)3 

LNOCWORKCO Je TsACBASE+4 J eLL)3 
TWXOUTCLL*WORK(0)25222)3 

SCHED? IF NOT RESTART THEN LINECLEARC(LCWeAC#) D3 

WRITEASTERISK&S&TRUES NOSTOPS4FALSEs 

FILENAME t# 03 

DOING #% WANT $= Q3 

SOURCEFILE t= OBVECTFILE t= 03 

IAM %# IF RESTART THEN O ELSE VSETUPFILES3 

GO EXIT 


END CASE 73 & #enee eet ee aereee tar enreeeeeeeeePeoneteongaenwetoenean 


END ALL CASESS 


EXITS 
ENQ OF MHITHERES 


OES ER EP ESI OSE SCRE CE SESE REE EE CC OL ECAR SSCP ESLES ELISA. © | 


PROCEDURE BREAKC(LCWsA)s BOOLEAN LCW3 ARRAY ALOJS 


OSU ERS PUSS EC CCOS ESSE A ERECT RES CCLSSSSSCCLCSALEL ESS Df 


BEGIN 
LABEL 13 
WRITEASTERISK $= TRUES 
IF RCALLMCPMSG) = O THEN LINECLEAR(LCWeAC*)) ELSE 
TAM 8% QO} 
END BREAK} 


OCC ETS er ee Tee eC Ee CCPL SL CST SC CeCe CLL LS ETS LT Leer S| 


PROCEQURE WRUCLCWeA)3 BOOLEAN LCWS ARRAY ALOJ3 

TITRE ETTI LETTE LILI LILLIE 
BEGIN 

LABEL T3 


WRITEASTERISK te TRUE} 
INITIATEOWHILEBUSY 8* TRUES 
BREAKORWRUSaTRUEJS WANTSBWATTFORS @VLINECLEARS 
IF REALCALLMCPMSG)*0 THEN JAM##O ELSE 
MATCHCRUN2*"CANDE ”) TAM8#O ELSE 
WANTS SWAT TFOR Se VMCPMSGS 

END WRU? 


019019910 7 0294 
01019920 T 9298 
014020000 7 0299 
01020100 7 0304 
01020200 T 0303 
04020300 ft 0305 
01020400 T 0308 
01020500 Tf 0309 
01020600 fT 0313 
014020700 T 0317 
01020800 T 0319 
01920900 fT 0320 
03921000 fT 0322 
01021100 T 0325 
01021200 T 0325 
01921300 T 0929 
START OF SEGMENT eextrennes 
33 IS 9 LONG, NEXT SEG 
01021400 Tt 90330 
01921500 T 9330 
32 IS 334 LONGs NEXT SEG 
02000000 T 0064 
02800100 T 0061 
02000200 T 0064 
02000300 T 0064 
02000350 T 006; 
START OF SEGMENT weaetenene 
02000400 T 9000 
02000500 T 90002 
02000600 T 0005 
02000700 T 0007 
34 15 8 LONG», NEXT SEG 
03000000 T 0064 
03000100 fT 0061 
03000200 T 0064 
03000300 T 0064 
03000350 T 0064 
START OF SEGMENT saeetwnnee 
03000000 Tf 90000 
03000500 T 9002 
03000600 TY 0004 
03000700 Yr 9006 
03000800 yr 9009 
03000810 fT 90012 
03800900 7 0016 
35 18 17 LONGe NEXT SEG 
» & e & 


33 
32 


34 


35 


slReASy T4l2T 


ore Susiness arms 


ries 


o e - . #ero. +‘ 5» 6 e 

OPP RRETVESACESAECCCAC ACES ECE PEC ES RSE SE SOCCER EEE CEC SOCE ELE ESE SELES 2B 4 9490000090 
PROCEDYRE LINECLEARCLCWe2A)s BOOLEAN LOWS ARRAY ALO]3 04000100 
CROC ORE PREECE LCCC SCS C ESC ERS CCAS ERE CEES ECO SE CEL ECE ER SES RSE E SELES L OLE ELS @ f 04000200 
BEGIN 04000300 
LABEL EXIT3 04900400 
START OF SEGMENT 

IF RUNNING THEN MATCHCRUN2s*®CANDE “"“) GO EXITS 04000410 
BUSYL INE “$8 FALSE} 04000500 
INITIATEDWHILEBUSY $3 FALSE} 04000600 
SAVEOWHILEINITBUSY $3 FALSE} 04000700 
RESTARTNEKDED $= FALSE) 04000800 
ALLMCPMSG tm FALSE, 04000900 
DISCONNECTING ta FALSE 04001000 
RESTART ts FALSES 04001100 
SEQMQDE ts FALSE 04001200 
HELPTOGGLE ts Q3 04004300 
DATAENABLED az FALSE 04001400 
BREAKQRWRU 3% FALSE3 04001500 
INQUIRY t@ FALSEsS CONTINUEBITS FALSE; 04001600 
SCWPREV 33 PREVRCW ¢% LLWOROS? BASE 32 SBASEs 04901700 
WANT 8 WAITFOR &* WAITINGSCW #3 LLINFO ¢t5 O3 04001800 
WHILE REALCTHINGSTODO) GTR O 00 GETSOMETHINGTODOCLCWeAL*J 23 04001900 
CLEARCACSBASEJs30)3 & FOR REPLACIT 04902000 

IF EQUATED THEN ENTERESPCeLLe"OrALC¥I)5 & GIVE BACK ESP DISK 04002010 
EQUATED 1% FALSE 04002020 
MSGRTR ts 183 04002100 
EXIT# IAM%?s03 04902200 
END PROCEDURE LINECLEAR3 04002300 


36 15 55 LONG 


pe RESPECTS SOCLOSCCASCE SESE SSCS ES EERE PECL EPS SESS ECE CES SAS ESE SESE EELS BS 05000000 
PRQCEDURE INITIALIZECTRANDBASE3 05000100 
OSE REROSREPCRLESESESASLEE SEEPS PSEC EL ERT ECE CEE CESSES SESS ELSE SEER TES | 05000200 
BEGIN 08000300 

STREAM PROCEDURE YSERSDATECLsDATIS 08000310 
START OF SEGMENT 

BEGIN 05000315 
DrisL2 OSse2aLIT"USERS/CANDE FILE DATED 3 05000320 
STtpaTs DS#s8CHRI OStaL[ Te) 0$900325 
END USERSBATES 08000330 
STREAM PROCEDURE ERR (W23 40521" 05000332 
BEGIN 40521" 05000334 
Ditews DOSisZ{LIT"USERS/CANDE HAS MORE THAN 14 ROWS OStuLdT%e"s *20524° 05000336 
END OF ERR3 40521" 05000338 
INTEGER Ji ’QS21" 0§0900340 
REAL USERFILEHEADERS 05000350 


T 
T 
T 
T 
T 
* 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
a 


AAHs AH 


OOa|aN 


0061 
0064 
0064 
00614 
0064 
KAWNEER 
0000 
0003 
9005 
0008 
0010 
0012 
0014 
0017 
0019 
0084 
Q024 
0026 
0028 
0033 
0036 
0039 
0045 
0046 
0049 
0052 
0033 
0054 
NEXT SEG 


0064 
0064 
0061 
0061 
0064 
weaentwtekan 
0000 
0000 
0003 
0004 


0004 
0004 
0005 
0010 


0040 
0010 


36 


8 


37 


6 
a 


ina, af. $V 


ASérea Basar s ie 


CLEARCCTRANDBASELQOJs15)3 & REMOVE 
CLEARCWORKCO]259)3 & ANY GARBAGE. 
MSGFILELOC §% EVENTS(C2)],020828)3 
TANKF ILE $% ABSCEVENTS(3))3 
USERFILEHEADER $= EVENTS(C2),05815)3 
SYSTEMPSCEVENTS( 2) e02t2))x(100)3 
ROWINUSE t= 153 
NOFILES tm FALSES 
USERSDATECLsEVENTSCGJ)3 TWXOUTCO*LCO)s 3221)3 & ACCESS DATE 
DISKWAITCI*+WORKEC#) 2 30s/USERFILEHEADER)3 
FOR tall STEP 1 UNTIL 29 DO 20521" 
IF WORK £1) GTR O THEN 40521° 
BEGIN ’0521" 
ERR CLS TWXOUT COsk £0)+3201)3 RO521° 
180/03 & KILL CANDE 40521" 
END3 B0521° 
USERBASERSWORK (10)3 40321° 
IF EVENTS(C3] GTR O THEN & OLD TANKS EXIST, 


BEGIN 


END3 
END 


DISKWAITCIeWORKE *J] 2302 TANKFILE DS 
MOVEC16s WORDS» WORKL 10] + CTRANDBASE[O) 3 
TANKSIZE 4* WORK(8)3 

ROWINUSE #* wWORK(C6],CF3 

ROWCOUNT &* WORK(C6OJ,FFS 

NOTANKS 8% FALSES 


INITIALIZECTRANDBASES 


OER SESE LETC CS CACC E ELEC CEES ECS CP SPEC ECCS CCS CCL CSCIC CSCS TCS C EL CSL CLL ce S| 


PROCEDURE DISKCHUNK3S 

eee eS TESS e Cee PPS e Cie Parc ccc ee Te TIS LeTerocrerrira. ty | 
IN 

REAL XTRADSK3 

BOOLEAN TANKNOTPRESENT3 


BEGI 


END 
BEG! 


BEG! 


END} 


IF NOFILES THEN % SET UP THE FILE ADDRESSES, 


N 

TANKNOTPRESENT t# EVENTS£32) LE@ 03 
INITIALIZECTRANDBASES 

ELSE TANKNOTPRESENT tt TRUES 

IF CTRANOBASECROWINUSE) NEQ@ EVENTSC1) THEN 
N % MUST REALLY BE A NEW CHUNKe 
ROWINVSE. (4424) = ROWINUSE + 43 
IF CTRANDBASECROWINUSE) NEQ@ O THEN 
N 

XTRADSK %$% CTRANOBASECROWINUSE)3 
ROWCOUNT %* ROWCOUNT =13 


CTRANDBASELROWINUSE) §* EVENTSCII3 

ROWCOUNT 8 ROWCOUNT + 43 

IF TANKNOTPRESENT THEN DISKWAITC1sWORK( #25302 TANKFILE)3 
WORKEO] #* ROWINUSE & ROWCOUNT (18933315)3 

MOVE C16sWORDSsCTRANDBASELOJ »WORKEL10))5 


37 1S 


03000400 
05@00500 
05000600 
05000700 
05900800 
05000860 
05000900 
05001000 
05001010 
05001020 
05001025 
05001030 
03001035 
09001040 
05001045 
05001050 
05001055 
03001400 
05001200 
Q3001300 
05001400 
05001500 
05001600 
05001700 
05001750 
05001600 
05001900 


52 LONG 


05002000 
05002100 
05902200 
03802300 
05002400 


START OF SEGMENT 


05002500 
05002700 
05002800 
05002900 
05003000 
05003100 
03003200 
05003300 
05003400 
03003500 
05003600 
03003700 
08003800 
05803900 
09004000 
08004100 
0§004200 
05004300 
0§004400 


T 
T 
T 
us 
T 
T 
T 
T 
T 
T 
¢C 
Pp 
C 
Pp 
¢ 
P 
¢ 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
’ 


At tt a 


0010 
002 
0013 
0015 
0016 
0017 
0019 
0020 
0022 
0025 
0027 
00a9 
0030 
0030 
0033 
0034 
0036 
0037 
0036 
0039 
0044 
0043 
0044 
0046 
0047 
0049 
0049 
NEXT SEG 


0064 
0064 
0064 
0064 
0064 


ekeethewen 


0000 
0000 
0000 
0001 
0002 
0003 
0004 
0005 
0006 
0008 
0009 
0010 
0011 
0012 
0042 
0013 
0015 
0017 
0019 


8 


38 


TANKSIZEVEWORKEB IS = DISKWAITCO*WORKE * je 302 TANKFILED3 
END REMEMBERING NEW CHUNK} 
DOGSAROQUNDS®DQGSARUUND OR ROWCOUNT GTR 133 
IF XTRADSK GTR 0 THEN &% GIVE IT BACK, 
FORGETUSEROISK(XTRADSKs TANKSIZE)3% 
IAM 8% QO} 
END OF NEW OISK CHUNKS 


ESP RS SEO SECO SELES EEE SE ETOCS iC e CeCe SSC SS ICCC CSC CCC EC TCL LLL TTS 


PROCEDURE OISCONNECTCLCWsA)s BOOLEAN LCWS ARRAY ALO)3 


PCCP Te SCP CPP EET Tee Te TICLE CTC LICL LCC CTELICT OCCT CTA LCT ETS | 
BEGIN 
BOOLEAN STREAM PROCEDURE SPECIAL (NeWeT)$ VALUE NaTo 


BEGIN 

ST #3 LOC Ts ST tm SIods OF s% We 
IF N SC = OC THEN TALLY 82 43 
SPECIAL %* TALLY3 

END SPECIALS 


IF NOT BOOLEAN (DOING) THEN 
BEGIN 
WHILE RCTHINGSTODO) GTR O DO GETSOMETHINGTODUCLCWAAC*) )3 
DISCONNECTING $s BCOOING 48 1)3 
BREAKORWRU $ TRUES 
ENDS 
07 IF DOGLICENSE THEN % TANK FILE CLEAN UP IN PROGRESS 
BEGIN 
DOGHOUSECLLIJI803 
DOGCATCHER(LCWeACHIJ)3 
IAM 1% VDISCONNECTS 
END 
IF REASON = VTEACHER THEN 
IF SPECIAL(C3sWORKE1Je"BYE@"==") THEN 
DEVICE §® REALCNOT FALSE)3 
IF REASON ™ VMCPMSG THEN 
BEGIN 
SREGHBASE+LIBMSGCTRS 
MCPMSG(LCWs AL #) 3 
IAM $# VDISCONNECTS 
END MCPMSGS 
IF CWALTFORESREALCNOTCFALSE) 3 DEVICE 
AND REALCALLMCPMSG)a0 ) 
OR SCHEDULINE 
THEN 
BEGIN 
LINECLEARCLCWeAC#]23 DISCONNECTING t= FALSES 
IF USERCODE NEQ O THEN 
BEGIN 
IF NOT SCHEDULINE THEN 


38 15 


05004500 
05004600 
05004700 
05004800 
05804900 
05805000 
05005200 


32 LONG 


06900000 
06000100 
06000200 
06000300 
06000400 


START OF SEGMENT 


06000500 
06000600 
06000700 
06000800 
06000900 


06001000 
06001100 
06001200 
06003300 
06001400 
06001500 
06001510 
06001520 
06001530 
04001540 
06001550 
06001560 
06001600 
06001700 
06001800 
06901900 
06002000 
06002100 
06002200 
06802300 
06002400 
06002500 
06002550 
06002600 
06002650 
06002700 
06002800 
06002900 
06002910 
06002920 


T 
T 
T 
T 
T 
T 
T 
’ 


a 


AHHH HHH HHH Ht a st ot to 


0021 
0024 
0024 
0026 
0027 
0028 
0029 
NEXT SEG 


00614 
0061 
0061 
0064 
0061 
aeetannan 
0000 
0000 
0000 
0004 
0002 


0003 
9003 
0004 
0008 
0010 
0043 
0013 
0013 
0014 
0015 
0017 
0018 
0018 
0048 
0024 
0023 
0024 
0024 
0026 
002? 
0028 
0028 
0029 
0034 
0034 
0032 
0033 
0037 
0038 
0038 


8 


39 


2 f. 


L a ent egy 


BEGIN 


END B 
END L 


END 
END 


Kwek kekakkknke 
PROCEDURE INPU 
tke dttatkiene 
BOOLE 
BEGIN 
LABEL T3 


END 


Rekakriegkkeavaee 


PROCEOURE 


Keke eteetewaene 


DEFINE 


ABEL 


REAL COUNTS 
BOOLEAN STREAM 
BEGIN 


END 


STREAM PROCEDU 
BEGIN OY s=WORK 


ACBASE] 3% 1503 
YEING OFF3 

LOGOFF (LCWsALe))3 
OGGING OFFS 
LOWSSFALSES CLEARCACTBASE)»SBASE*TBASE"1)3 
TAM 8# OF ODISCONNECTEDCLL DS 

IF DONE WITH THIS LINES 

DISCONNECTS 


BYECLCWsal#))3 & SCRATCH WORK FILES 


KMART EE HRA RAW REE THEN HERKEN AREK EMRE ERE eS 


TDATA CLCWSA); 


TER RSLS CSCC ELSE SECO SLES OE CCCCOCCCLOCSLCCCE CSCS SILC CS LLL. SS | 


AN LCWS ARRAY ACO) 3 


WECANUSEDATA $= NO DOGSAROUNDs 

NODATAREQUESTED#& TRUE 3 

DATAOFFSETT te EVENTS (193 

DATAWQORDS ts EVENTS [2]3 

DATADISKLOC te EVENTS (3) & ROWINUSE (3624484); 


NODATAS=(DATAWORDS LEG 0 OR DATAOFFSETT GEQ 29)3 
IAM %® WANT #803 
KLUDGE INPUTDATA3 


Rae RM HEE KEE EEE REE EERE EERE RE HEAR KEKE KH 


BUILOADATAEVENT3 


Lice eA Pee PPE PPC PE SE CPPS ECC LPP PC ESSE TCC C EL oe 2. Ss 


N 
INPUTLLSC L088 )8> TNPUTCHAR®(33815]%> INPUTQMARKS( 1941083 


EXIT3 
PROCEDURE FLAGBITCW)3 


STteWs IF SB THEN TALLY¢eys FLAGBITESTALL YS 
FLAGBITS 


RE INCOMPLETEMSG( WORK) 3 
3 DSt@27LIT"YOUR REQUEST IS INCOMPLETE,"4 ENDS 


IF FLAGBITCTTYINPUTCOATAOFFSETT)) THEN 


39 IS 


40 IS 


06002930 
06002940 
06002950 
06002960 
06002970 
06003000 
06003100 
06003200 
06003300 


51 LONG 


07000000 
07000100 
07000200 
07000300 
07800400 
07000450 


START OF SEGMENT 


07000500 
07000600 
07000700 
07000800 
07000900 
07001000 
07001100 
07001400 


T 
T 
T 
T 
T 
it 
T 
T 
T 
’ 


tt tt 


13 LONG, 


07001500 
07001600 
07001700 
07901800 
07001900 


START OF SEGMENT 


07002000 
07002010 
07002100 
07002200 
07002300 
07002400 


07002410 
07002420 


07002500 


ee ee ee | 


44 


0039 
0040 
0043 
0043 
0045 
0045 
0046 
0049 
0049 
NEXT SEG 


0064 
0064 
0064 
0061 
0061 
0061 
eaten 
0000 
0002 
0003 
0004 
0005 
0007 
0011 
0012 
NEXT SEG 


0061 
Q064 
0064 
0064 
0061 
aeebhetkun 
0000 
0000 
0000 
0000 
Qg000 
0001 


0002 
0002 


0007 


4Q 


44 


tel0T 


BEGIN LLte0s REASONS #133 GO EXIT ENDS 
IF QDOGSAROUND THEN % BAD NEWS. 
BEGIN 
EVENTREASON t@ REASON %=& VDOGCATCHERS 
EVENTLL te Lh ta OQGSLOOSES 
IF LL GTR O THEN GO EXITS 
END DOGSAROQUND3 
BEGIN 
LL §* CERRSW $3 TTY INPUTCOATAOFFSETTI]) eINPFUTLLS 
EVENTSC3)9% DATADISKLOC3 
EVENTS(2]#= REASONS ®( (WORK(O] S2ERRSWeINPUTCHAR) +7), C4085)3 
EVENTSC1)3% DATAOFFSETTI® DATAOFFSETT + 13 
MOVE CREASONs WORODSs TTYINPUTCDATAOFFSETTJ2 WORKE1))3 
WORKADRS t* ADDRESS(WORKL1I))3 
COUNT 33 CWORK(0J"1),(3989)3 
WORKENDADRS 3 (WORK ADRS+COUNT. C4035] )@COUNT( 3084533); 
NODATASs(DATAGFFSETT 8 DATAOFFSETT + REASON) GEQ 293 
IF CDATAWORDS1® DATAWORDS = REASON = 4) LSS 1 THEN 
NODATA $*® TRUE 
EVENTS(CO).C1i8815]33 & 
CERRSW & CREASONS® VINPUT*ERRSW, INPUTQMARK)C384137)) 
063215)3 
IF REASON = VTEACHER AND CONTINUEBIT THEN % NO DISKREAD 
BEGIN INCOMPLETEMSGCWORK)S TWXOUTC(LL»WORKCOJs2791)3 
L330% REASON #8 133 ENDS & IF WAITING 
IF REASON®VTEACHER THEN 
If SEQMODE AND NOT DISCONNECTING THEN REASON#SVINPUTS 
IF LL GTR MAXLINES THEN BEGIN LL¥S03 REASONt&133 ENDS 
END NO DOGS AROUNDS 


EXITS END OF BUILDING A DATA EVENT? 


CEC SEPT SPEC ESSEC ESS COL ELSES ESC AL SSCS TST CLASES TL LTT Tr TT et 


PROCEOURE RESTARTITC(LCW2A)s BOOLEAN LCWs ARRAY ALO]3 

CSRS TELA CSIC AESA SELES ALICLCLAS ECCS CLEC LTA TLIC TTTT 
BEGIN 

REAL T3 


LABEL BADsF INDCHKPT »MAKESURE »CASEB »CASESZEXITS 
BOOLEAN STREAM PROCEDURE FINDFLAG(SEGMENT)3 
BEGIN LOCAL SV3 LABEL EXITS SIteSEGMENT; 
30¢SV8sSI3 IF SB THEN 
BEGIN TALLYI#13 FINDFLAG?STALLYS JUMP OUT TO EXITS ENDS 
| SyisSv3 S]teSl+a)s 
EXIT! END STREAM PROCEDURE FINOFLAGS 


rai a . STREAM PROCEDURE FLAGMESSAGE CWORKeFILNAM*USERCODEsDISKADDRESS)3 
VALUE FILNAM*USERCOOEsOI SKADDRESS3 
BEGIN 
Seana OLaswORKS OSsai4LIT"FLAG BITSFILE 3 
ST#sLOC FILNAMS 2CSTS*SI415 DStS7CHR; DSteLIT"/")3 OLseDI"43 


41 18 


07002600 
07002700 
07002800 
07002900 
07003000 
07003100 
07003200 
07003300 
07003400 
07003500 
07803600 
07903700 
07003800 
07003820 
07003840 
07003850 
07803900 
07004000 
07004100 
07904200 
07004300 
07804400 
07004410 
07004420 
07004430 
07004440 
07004450 
07804800 
07004900 
07005000 


70 LONG 


09900000 
09000100 
09000200 
09000300 
09900400 


START OF SEGMENT 


09000500 
090003502 
09000504 
09000506 
09000508 
09@00510 
09000512 


09000514 
09000516 
09900518 
09000520 
09000522 


T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
2 


Se en ee ee ee ee 


444-4 


9009 
0042 
0012 
ool2 
0015 
0019 
0020 

0020 
0020 
0022 
0043 
0026 
0030 
0032 
0034 
0036 
0039 
0042 
0044 
0046 
0047 
0050 
0054 
0053 
0057 
0058 
0059 
0063 
0066 
0066 


NEXT SEG 


0064 
0064 
0061 
0064 
0064 
Hee ERES 
0000 
0000 
0000 
0000 
0004 
0002 
0003 


0005 
0005 
0005 
0005 
0007 


8 


42 


Bogs 
Cus 


t ee ag! Pas SM: ted 


rAzore 


© 
OStey7LIT" AT DISK ADORESS "3 DSts6DEC3 09900524 T 0009 @ 
DS#*{6LIT" FILE OISCAROED,"3 09000526 T 0012 
END STREAM PROCEDURE FLAGMESSAGES 09000528 T 0014 ° 
rd] 
STREAM PROCEDURE OK(W)3 09000600 T 0014 
BEGIN 09000700 T 0014 
DI tx W3 09900800 T 0015 ® 
DSt#42 LIT "WORKFILE UK,"3 - 99000900 T 0015 
END Ox3 09001000 T 0017 
e@ 
@ 
STREAM PROCEDURE SPECCWRK»SEQsFIX)% VALUE SEQsFIX3 09001010 T 0017 
BEGIN 09001020 T 0017 
DIteWRKs OS3%20 LIT “INPUT RESTORED THRU "3 09001030 T 0018 & 
FIXCDSt#7 LIT "FIX aT ")3 09001040 T 0021 
SI$sLOc SEQ; FIXs"pls 05%%8 DEC 09001050 T 0023 
DISSFIX$ OS8s7 FILL DISsFIXs SIssrIX; 09001060 T 0024 rd) 
BCIF SCe” " THEN SI$=SI¢4 ELSE DS#SCHR)3 09001070 T 0025 
oSt=46 LIT "3 09001080 T 0027 
END STREAMS 09001090 fT 0029 @ 
rd] 
CASE DOING OF 09901100 T 9029 
BEGIN 09801200 T 0030 e 
BEGIN ¥®& CASE 0 09001300 T 0030 
IF BOOLEANCEVENTSE13,0284)) THEN 09001310 T 0030 
BEGIN 09001320 T 0034 @ 
SCHEDULINE t% TRUE: 09001322 T 0032 
CHARGE SaEVENTS(3]4 09001323 T 0034 
USERCODE t= EVENTS(1).(6842]3 09001324 T 0036 & 
SCHEONAME $3 EVENTS(C2]066%42]3 % NAME OF SCHEDULE FILE 09001325 7 0038 
DEVICE tz TELETYPES 09001326 T 004, 
END 09001328 T 0042 rd] 
ELSE DEVICE t* EVENTS(2]3 09001330 T 9042 
IF EVENTSC1ijeC1!2I"1 THEN %SCREDULE LUG UN (NOT RESTART) 09001340 T 0044 
LAMS*VHELLO 09001350 T 0046 @ 
ELSE 09001360 T 0047 
IF NOTANKS THEN 09001400 T 0047 
IAM t= VHELLO 09001500 T 0048 @ 
ELSE 09001600 T 0049 
BEGIN 09801700 T 0050 
FILESOK $s FALSES BASE ts SBASES 09901800 T 0050 @ 
| ALBASEI]SREVENTSE1I,66842)3 % SAVE USERCODE 09901900 T 0053 
RESTART t# TRUES 09002000 T 0056 
TEMP t= DOING #3 13 09802100 T 0058 ® 
WANT #* VHELLOS 09802200 T 0059 
END 09902300 T 0060 
END CASE 03 09@02400 T 0060 ] 
BEGIN % CASE 1 GOT HIM LOGGED IN 09902500 7 0064 
COMMENT CHECK TIME RESTRICTIONS (NOT CHECKED IN HITHERE ON RESTART)3 09002510 T 0064 ° 
« ” . » @a° nr . ‘ * & 


®eeeeeeeeeeeeeee & & &© Oo € ®@ 


* . : “pe, 


IF RCBCTIMELIMITS,»C24824)) EQV BCRONOT FALSE) .624324])) EQL 
R¢NOT FALSE) OR TIMELIMI TS. (246824) EQL O THEN ELSE 
TIMERESTRICTBIT t* REALCTRUE)D3 
RESTART 38 FALSES 
IF USERCQODE NEQ@ ACBASE) THEN 
BEGIN . 
IAM ta VSETUPFILES3 
DOING ts TEMP %* 03 
GO EXIT 
END3 
IF SCHEOULINE THEN 
STEMPORARY UNTIL WE KNOW WHAT TO DO 
GOERRC MP aL eOePs 40) 3 
ACTBASE+18)] 28% TENS; 
T $= MAKEFNC"LP"LL D3 
FINDCLLSIAMEC 3384137] 20+ Ts USERCODE*USERCODE )3 
DOING $3 23 
WAITFOR 3% JTAM3 
ENO CASE 13 
BEGIN % CASE 2 
IF EVENTS£C1) NE@ 7 THEN 
BEGIN 
BAD! 
FILENAME %= DOING 3% WAITFOR ts OF 
IAM te VSETUPFILES3 
GQ EXIT 
END3 
ACBASE) #2 CWRKTBLADRS SEVENTSC4) 2°13 % ADOR OF FIRST REC 
ACBASE41) $e Q3 
FINOCHKPT! 
LLOISKREAD s# ACBASE] + INCCACBASE4+1))3 
TEMP ta 23 
DOING t= 33 
WANT &* VBISKREAD; 
END ¢CASE 23 
BEGIN ® CASE 3 
IF FINDFLAGCWORK) THEN 
BEGIN 
FL AGMESSAGE CWORK sMAKEFNC "LPs. 1) sUSERCODE s CAC BASE J+ACBASE41)))3 
TWXOUTCOs*sWORK([ OJ] 27001)3 
Go TO BAD; 
ENO} 
ACBASE+2) ts 03 
IF WoORKCO)] @ TENS THEN 
BEGIN 
GOODOBY ts BOOLEANCWORK(7).C12%1))3 
FILENAME $# WORK(12)3 
INCREMENT 8 WORKEL4)3 
SEQLAST $# WORK[15)3 
SEQIN tse WORKL16]3 
LASTRECORO ts WORKC 17) + 1% & RECORD COUNT 
TABLEINFO ts WORK(16]3 
FILETYPE &# WORKC20)3 
SOURCEFILE 3* WORKEC21)3 
GO MAKESURE; 
END3 
IF WORKC16] NEQ@ TENS THEN 


09002511 
09002512 
09002513 
09002600 
09002700 
09002800 
09002900 
09003000 
09903100 
09003200 
09003210 
09003220 
09003230 
09903300 
09003400 
09003500 
09003600 
09003700 
09003800 
09003900 
09004000 
09904100 
09004200 
09004300 
09004400 
09004500 
09004600 
09004700 
09004800 
09004900 
09005000 
09005100 
09005200 
09005300 
09005400 
09805500 
09005510 
09005515 
09005520 
09005525 
09005530 
09005535 
09905600 
09005700 
09805800 
09005810 
09005900 
09006000 
09006100 
09006200 
09006250 
09006300 
09006400 
09006500 
09006600 
09006700 
09006800 
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0064 
0063 
0066 
0069 
0074 
0072 
0073 
oOr4 
0075 
0075 
0075 
0076 
0076 
0083 
0084 
0086 
0090 
0090 
0094 
0092 
0092 
0093 
0093 
0094 
0096 
0097 
009? 
0099 
0102 
0103 
0104 
0108 
0109 
0110 
Oils 
0411 
O4tt 
0113 
0413 
0118 
0119 
0420 
01420 
0122 
0123 
0123 
0126 
0128 
0129 
0131 
0132 
0134 
0136 
0137 
0139 
0144 
O1a4 


ie ale a 
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IF wORKC20) NE@ TENS THEN 
IF ACBASE#1) GEQ TBLSZ THEN GO BAD 
ELSE 


BEGIN 
MOVEC1@*WORDS»WORKL 20] eALTBASEI)3 
Go FINDCHKPT 
END 
ELSE 
BEGIN 
ACBASE#2) t= 203 
MOVE 10eWORDS#WORKL10] 2ALTBASE) )3 
GOQDOBY t# BOOLEANCWORK(27] 6Ci2t1))3 
END 
ELSE 
BEGIN 
MOVEC 10*+WORDS »WORK(OJ*AL TBASE))3 
ACBASE#2] te 103 
GOODOBY $= BOOLEANCWORKC17)eLi2I1))3 
FILENAME t= WORK(22)3 
INCREMENT t# WORK(C24)3 
SEQLAST $= WORKC25)3 
SEQIN t* WORK(26)3 


LASTRECORD t= WORKC27] + 13 &% RECORD COUNT 


TABLEINF® t* WORK(28)3 


END} 
LLOISKREAOD sa ACBASE] + INCCALBASE41))3 
TEMP ta 33 
DOING tx 43 
WANT #* VDISKREAD3 
END cASE 33 
BEGIN % CASE 4 
IF ACBASE+2] # 20 THEN 
BEGIN 
FILENAME S# WORK(C2]3 
INCREMENT %8 WORK(4)3 
SEQLAST t= WORK(5]3 
SEQIN ta WORK(6)3 


LASTRECGORD %* WORKE7] + 13 % RECORD COUNT 


TABLEINF@ $s WORK(8)3 
FILETYPE %* WORK(10)3 
SOURCEFILE s# WORKCA1)3 
ENO ELSE 
BEGIN 
FILE TYPe &t# WORK [023 


SQURCEFILE #* WORKC4)3 
END3 
MAKESURE? 
OBJECTFILE sa 03 


FINDCLLSIAMC 3384137) 20+SOURCEF ILE» USERCODE*USERCODE); 


OOQING ta 83 

WAITFOR $3 IAM$ 
END CASE 43 

BEGIN .% CASE 5 
IF EvENTS£C1] NEG 7 THEN GO Bad; 
ACBASE] ss EVENTS(3)3 %& SOURCEFILE EOQFPTR 
T $a MAKEFNC LTT LL Ds 
FINDCLL&IAMEC 3384187] 20s Ts» USERCOQODEsUSERCODE)3 


” * : s @e° 


09906900 
09007000 
09907100 
09007200 
09007300 
09807400 
09007500 
09007600 
09007700 
09007800 
09007900 
09907910 
09008000 
09008100 
09008200 
098008300 
09008400 
09008410 
09008500 
09908600 
09008700 
09008800 
090088650 
09008900 
09909000 
09909100 
09009200 
09009300 
09009400 
09009500 
09009600 
09009700 
09009800 
09009900 
09010000 
09010100 
09010200 
09010250 
09910300 
09040400 
09010500 
09010600 
09010700 
090109800 
090190900 
09011000 
09041100 
09011200 
09011300 
09011400 
09011500 
09011600 
09011700 
09031800 
09011850 
09011900 
09012000 
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0142 
0143 
0145 
0145 
0146 
0148 
0148 
0150 
0150 
0150 
0152 
0154 
0157 
0157 
0157 
0158 
0160 
0162 
0165 
0166 
0168 
0169 
O17) 


0173. 


0174 
0174 
0179 
0180 
0480 
0184 
0182 
0182 
0183 
0184 
0185 
0187 
0188 
0190 
0192 
0493 
0195 
0196 
0196 
0197 
0198 
0200 
0200 
0200 
0204 
0205 
0206 
0206 
0207 
0207 
0208 
0210 
0214 
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WAITFOR 8% JAMS 
TEMP %@ 43 
DOING ta 63 
END CASE 53 
BEGIN % CASE 6 
IF EVENTSC1) NE@ 7 THEN GO BAD} 
IF FILETYPE NEQ 8 THEN %&% NOT DATA FILE 
a ACBASE] GEG 90 THEN % SQURCEFILE NOT EMPTY 


GIN 
BO LOSSRREAD %% EVENTSC4)3; %& ADDRESS OF "1T" FILE 
WANT t= VDISKREAD3 
DOING ta 73 
GO yO EXIT) 
END; 
GO To CASESB3 
END CASE 63 
BEGIN % CASE 7 
IF WORKCLIJ#TENB THEN 
BEGIN 
ACBASE] 183 CONCISEBIT3 
CONCISEBIT t= 14 
WORKCO] &% 03 
WORKOEC1] $s CLLYSYSTEM) & 10894673193 
WORKE2] t= WORK[4) $% ERRSW te USERCOOES 
WORKEL3] te ALBASE4+1] &t3 SQURCEFILES 
ACBASE*#2}) te FILENAMES 
RUN, $* "LOAD "3 
RUN2 $3 "CANDE "3 
WANT ts VDISPATCH3 
DISKWRITECESP1)3 
LITOUTC"™WAIT™ "sNOCRLE)3 
SQURCEFILE 8% FILENAME ta O03 
TEMP ta 33 
DOING %s 83 
END ELSE GO CASES; 
ENO CASE 73 
BEGIN % CASE 83 
CONCISEBIT ts ACBASE)3 
SQURCEFILE 33 ALBASE*1]3 
FILENAME %@ ACBASE+2)3 
CASESBS 
IF GQODOBJ THEN 


BEGIN 
PENDCLL&IAME3314117 360+SQURCEFILE, [61 36 J/USERCODE*USERCODE)) 
DOING t= 93 WAITFOR ts IAMS 
END ELSE GO TO CASE9S 

END. CASE 83 


BEGIN 8 CASE 9 
IF EVENTSCiJ]e? THEN OBJECTFILE$ #SOURCEFILE (6136) ELSE GOODOBV!sFALSEs 
CASE9I. ao 
OKCWORK)S 
TWXOUTCLEsWORK(OJe120193 
IF. TRCOUNT NE@ Q THEN 
BEGIN % TELL USER LINE NUMBERs 
T8eTPENTRY3 
TewIF ACTIBTENS THEN ACT#4) ELSE ACTI3 
SPECCWORKsTeL2it27JsREAL(T.C182] EQk 3293 


09012100 
09912110 
o9o0tz2i20 
09012130 
09012140 
09012150 
09012160 
09012170 
09012480 
09012190 
09012200 
09012210 
090142215 
09012220 
09812221 
09042230 
09042240 
09012250 
09012260 
ovo12270 
09012280 
09012290 
09042300 
09012310 
09012320 
09012330 
09042340 
09012350 
09012360 
09042370 
09012380 
09012390 
09032400 
09042410 
09012420 
090142430 
09012440 
09042450 
09012460 
09012470 
09012480 
09012510 
09012520 
09012530 
09042540 
09012550 
09012560 
09012570 
09012580 
09012590 
09012600 
09012700 
09012710 
09012720 
09012730 
09012740 
090142750 
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0215 
0216 
0217 
0217 
O2ia 
0218 
0219 
0220 
0222 
0222 
0224 
0225 
0225 
0226 
0226 
0226 
0227 
022? 
o2za 
0228 
0230 
0233 
0234 
0237 
0240 
0243 
0245 
0246 
0247 
0248 
0252 
0253 
0255 
0256 
0256 
0256 
0257 
0257 
0260 
0262 
0264 
0264 
0264 
0265 
0269 
0274 
0274 
0271 
oe? 
0282 
0284 
0285 
0286 
0288 
0288 
0290 
0294 
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TWXOUT CLL» WORKIO)»3602)3 09012760 T 0297 
ENO TELLING LINE NUMBER} 09012770 T O299 
LINECLEARCLCWeAC*))3 09012800 T 0299 
IF SQOURCEFILE = FILENAME THEN 09012900 T 0300 
BEGIN 090133000 T 0302 
T te MAKEFNC™1S"seL Ls 09013100 T 0302 
MAKEFILECLLGL3SC33841I7 Jefe T»USERCODESFILETYPEs"2)3 09013200 T 0304 
ENDS 09043300 T 0308 
FILESOK t* TRUES 09013400 T 0308 
END CASE 93 09013500 T 0310 
END ALL CASES! 09013600 7 0310 


START OF SEGMENT eae eetwewe 43 
43 1S 141 LONGs NEXT SEG 42 
EXIT! ; 09913700 7 Q312 
ENO RESTARTIT3 09013800 T O312 
42 IS 316 LONGs, NEXT SEG 8 


PEST SEC PUC SPCR ECR CESE CEL SEL EPP CEP CPC TEPC CPPCC CSCC CLEC SE SCSI SSL CSL LS SS 14000000 TY 0064 

PROCEDURE MCPMSG (LCWsA)3 BUOLEAN L CWS ARRAY A[O)3 14901000 T 0064 

Ta We te te tei RE EEE EERE MRE EEK KHER E EHS 14002000 T 0061 

BEGIN 14003000 T 0064 

LABEL SETT#EXITs 14004000 T 0064 
START OF SEGMENT «eudtwawen 44 

REAL T3 14005000 T 0000 

14006000 7 0000 

STREAM PR@CEQURE MAKEBOUMSGC(W*N)3 VALUE N& 14007000 Tf 9000 

BEGIN 14008000 Tf 0000 

Oy eews OSt=11 LIT " RUNNING, "3 14009000 T 0000 

NCDISeDI"103 059210 LIT "“COMPILINGs")2 214010000 T 0002 

END MAKEBOJMSG3 14011000 fT 9005 

14012000 T 0005 

STREAM PROCEQURE SQUASH(CAsC)s VALUE C3 14013000 Y 90005 

BEGIN LABEL Eels LOCAL TOGS 14044000 T 0005 

STemAs OLESAs TALLY S343 TOGSSTALLYS TALLY##03 14015000 T 90006 

2¢36CIF SC =" " THEN 14016000 T 0007 

L§ BEGIN SIt#S1413 14017000 T 0008 

Ir §C¢ 3 " * THEN GO TO L3 14018000 T 9009 

SIssSrel3 14019000 T 0010 

END3 14020000 T 0010 

IF SCaG THEN 14921000 tT 0019 

BEGIN 14022000 T 0011 

TOGCSTseSI4+19)3 TOGHaTALLY3 14923000 fT 0014 

ENOs 14024000 Tt 0013 

If SC * LEFTARROW THEN JUMP OUT 2 TO E53 14025000 T 0033 

OStBCHR) 3 14026000 Tt 0034 

Es 2cOSte36LIT” "23 14027000 T 0015 

END SQUASH? 14028000 ~ 902) 
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STREAM PROCEDURE EXAMINECWORK#L 23 
BEGIN LOCAL T3 LABEL LIsEXITs 
SrtswORKs OLIFLs OL tsole8s 
6¢ % 6 WORDS MAXIMUM IN QUTPUT ARRAY L 
Wis Ip SCa”* " THEN 
BEGIN 
SlieSie13 GO TO L413 


END3 
Ip SCaLEFTARROW THEN JUMP OUT TO EXIT3 
If SCwALPHA THEN 
BEGIN 
OSteLIT"O"s OS sCHR; 
6CIF SCBALPHA THEN OS#aCHR ELSE DSIRLIT" ")3 
2OCIF SCEALPHA THEN SI8#S]4+1 ELSE JUMP OUT); 
TALLYSsTALLYei3 
END 
ELSE 
BEGIN 
SttaSzeis GO TO Lis 
END)3 


EXIT! 
OytelLs TsaTALLYs STtsLOc TS DStawps, 
END STREAM PROCEDURE EXAMINES 


STREAM PROCEDURE ERRORMESSAGE (WORKS 


BEGIN 

DI 3sWORK3 

DSts47LIT"SYSTEM ERRORSTASK WAS DISCONTINUED@PLEASE WAIT#"; 

END3 

STREAM PROCEDURE LOADCOQDE (PLACE); *0549" 

BEGIN 40519 
DrewePLOCEs DI saDI+23 %0519= 
DSte6 LIT " PST “3 DJ taDl+263 30519" 
Dste6 LIT " [OTe "3 %0519" 
END OF LOAOCODES 405198 
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IF NOT BOOLEANCOQING) THEN % FIRST LIBRARY MAINTENANCE CALL 
BEGIN 
SREGtaBASE+LIBMSGCTR@ACBASE 23 
DOING #8 13 
ENO} 


Recast} é 


14029000 
14930000 
14931000 
14032000 
14933000 
14034000 
14035000 
14036000 
14937000 
14038000 
14039000 
14040000 
14041000 
14042000 
14043000 
14044000 
14045000 
14046000 
14047000 
14948000 
14049000 
14050000 
14951000 
14052000 


14052100 
14952200 
14052300 
14052400 
14052500 
14952600 


14052610 
14052620 
14052630 
14052640 
14052650 
14852660 


14052700 
14053000 
14054000 
14055000 
14056000 
14057000 
14058000 
14059000 
14860000 
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0021 
0024 
0024 
0022 
0022 
0023 
0023 
0023 
0024 
0024 
0025 
0026 
0026 
0027 
0029 
0032 
0032 
0032 
0032 
0032 
0033 
0033 
0033 
0035 


0035 
0035 
0035 
0036 
0036 
0042 


0042 
0042 
0043 
0043 
0044 
0045 


0046 
0046 
0046 
0046 
0046 
0047 
0049 
0050 
0050 


a 
x 
a 
x 
% 
% 
% 
x 
% 
% 
a 
% 


IF 


IF 


IF 


SETTS 


EVENTS(C1] & 


0 FOR EQJ SYNTAX ERRORS. 
1 FOR EQY O,K, 

2 FOR EQOJ DS"ED. 

3 FOR DS"ED MESSAGE, 

4 FOR BQJ, 

3 FOR LIBMTNCE IGNORED, 
6 FOR LEBMTNCE REMOVED, 
7 FOR LTBMTNCE CHANGED, 
8 FOR SECURED FILE, 

9 FOR ZIP*ERRORs 

O FOR NOT ON DISK. 

1 FOR NOT OBJECT CODE FILE. 


EVENTSC1] # 4 THEN % BOW EVENT 

BEGIN 

IF BOJMSG THEN &% INDICATE ACTUAL B0V 
BEGIN 
MAKEBOJMSGCWORKLEO}»COMPILING)3 
TWXOUTCLL@WORKCOJ]s1i01)3 
BOUMSGISFALSES - 
END B0JMSG3 

IF CONCISE THEN MATCHCRUN@*"CANDE ) ELSE 
BEGIN 
LITOUTC™*BQU= "sNOCRLFI3 LITOUTCRUNI*CRLF DS 
END3 

MATCHCRUNL*"PAPER ) MATCHCRUNZ»™"CANDE ") 


BEGIN 
REAOTAPECLLALICIZI4II7)» 820s USERCODE D5 
ENDs 

END BOV ELSE 


EVENTS£1] GE@ 5 AND EVENTS(1] LE@ 7 THEN % LIBRARY MAINT, 
BEGIN 
If LIBMTNCE THEN 


BEGIN 
ACSREG*LIBMSGCTRIGSEVENTSCIF EVENTSC1)85 THEN 4 ELSE 1]3 


IF LIBMSGCTRIsLIBMSGCTR™1 LEQ 0 THEN IAM ts Q3 
END ELSE JAM t# 03 
END ELSE 


EVENTSC1] = 3 THEN % DS"ED MESSAGE 

BEGIN 

TWXOUTCLL»WORKCOJ]2001)3 % CR/LF BEFORE MSG 

SQUASH (WORK([Q]s"I")3 

If RUNNING AND NOT BOOLEANCHELPTOGGLE) AND NOT SCHEDULINE THEN 
BEGIN % TRY RUNNING "HELP" PROGRAM 


EXAMINE CWORKs 123 
IF CCOMPARCLOEL)* "EOF ") OR COMPARCL( 1) 2 "PAR 8) 
AND 
CCOMPARCRUN@s"CANDE %) OR COMPARCRUN2s"DI SK ")) 
ANDO 
LLCO] GE® 5 THEN 
BEGIN 


WORKCOJSSLOC193 & MESSAGE TYPE 
WORKCQIS*LC4I3 & MFID 
WORKC2I¢SL05)3 & FID 
WORKC3IS#RUNYG 


14061000 
14062000 
14963000 
14064000 
14065000 
14066000 
14967000 
14066000 
14069000 
14070000 
14071000 
14072000 
14073000 
14074000 
14075000 
14076000 
14077000 
14078000 
14079000 
14980000 
14081000 
14082000 
14083000 
14084000 
14085000 
14086000 
14087000 
14088000 
14089000 
14090000 
14991000 
14092000 
14093000 
14094000 
14695000 
14096000 
44997000 
14898000 
14099000 
14100000 
14101000 
14102000 
14103000 
14104000 
14105000 
14106000 
14107000 
141908000 
14109000 
14110000 
14113000 
14114000 
14115000 
14116000 
141179000 
14118000 
14119000 


AAH AHHH HHA a Ht A HA to A A a ta a a sg tt st ot a st st 


0050 
0050 
0050 
0050 
0950 
0050 
0050 
0050 
0050 
0050 
0050 
0050 
0050 
0050 
0051 
0054 
0052 
0052 
0054 
0056 
0058 
0058 
0062 
0064 
0066 
0066 
0068 
0070 
0073 
0073 
0073 
0073 
0080 
0080 
0084 
0082 
0086 
0090 
0094 
0094 
0094 
0093 
0093 
0095 
0096 
0100 
0100 
0102 
0105 
0106 
0109 
0310 
Oils 
Oll2 
0413 
0115 
0116 
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@ & @ @ @ e@ @ @ & ®@ > 


IF 


IF 


WORKEC4A) t*RUNGQ3 

WORK(SJt@LLEFILETYPE(3434216)5 

IF COMPAR(L(4]sSOURCEFILE) THEN 
IF COMPAR(LOSJsUSERCODE) THEN 

WORK(5),0612433413 % WORKFILE TOGGLE 

WORKCOJISUSERCODES 

WORKO7] 3% TPCOUNT3 

WORKCBISSSQURCEFILES 

MOVE C1O*#WORDSsCTRANOBASE* WORK(10))3 

DISKWRITECESP1)3 

HELPTOGGLE?#13 

NORETRY83Q3 

IF BOOLEANCUPDATEBIT) THEN & UPDATING WORKFILE 
BEGIN 
TE aMAKEFNCM LPM LL D3 
IF COMPARCWORK(4)2T2 OR wWORKE( 1380 THEN NORETRY$ 843 
END3 

ENO % IF COM11 MESSAGE 

ELSE % CHECK TERMINALMESSAGEA ERRORS 
IF CCOMPARCLULLJe"FLAG ") OR 
COMPAR(LOELJ»"INVALD “) QR 
CCOMPARC(LE LJ "10 ") AND COMPAR(L(2]s. "ERK "))) 


ANO 
CCOMPARCRUN2s"CANDE ) OR COMPARCRUN2s "DISK ")2 AND 
SOURCEFILE NEQ@ O THEN 
BEGIN 
LC4)teb (518605 GO TO SETTS 
END ELSE TWXOUTCLL»WORK(O]27201)3 
END ELSE TWHXOUTCLL es WORKLOJ 2722403 
END ELSE 


EVENTSC1) GE@ & THEN & MISC, MESSAGES 
BEGIN 

ERRSW 1" RUN 

MSGPTRISEVENTSL 124163 

ALLMCPMSG t= FALSEs 

WELPTOGGLESs RUNY %# RUN2 3% JAM 38 03 
NORETRY #303 

If NOT BREAKORWRU THEN JAM#=VERRORS 

GO TO EXITs 

ENDS 


EVENTSC13] LE@ 2 THEN %& EOW FOR THIS GUY, 


BEGIN 


ETIME $# ETIME + EVENTS(C3)].016%32)} 
IOTOT ## JOTOT # EVENTS£L4) .616%32)3 
ERRSWseBRUNLI. 
COMMONCELL $4 WORK(8)3 
Ip COMPARCRUNL» "HELP ") AND COMPAR(RUN2»"OISK ") THEN 
BEGIN. 
HELPTOGGLE $s Q3 
IF Seay here r ean ANO EVENTS(C) ® 1 THEN &% WORKFILE UPQATE 
EG] 
LINECLEARCLCWsAC 4) 23 
TWXOUTCLLeL Le Oe 2)3 
IF BOOLEANCNORETRY?) THEN CANCELCKPTCAC#)) 
ELSE LITOUTC"OK "sCRLF IS 


14120000 
44121000 
44122000 
14123000 
14424900 
44125000 
14126000 
14127000 
14128000 
44129000 
14130000 
14131000 
14132000 
14133000 
14134000 
14135000 
14136000 
14137000 
14138000 
14139000 
14139010 
14139020 
14140000 
44141000 
14141100 
14142000 
14143000 
14144000 
14145000 
14146000 
14147000 
14148000 
14149000 
14150000 
14151000 
14152000 
14133000 
14154000 
14155000 
14156000 
44157000 
14158000 
14159000 
14160000 
14161000 
14162000 
14163000 
14164000 
14165000 
14166000 
14167000 
14168000 
14169000 
14170000 
14171000 
14172000 
14173000 
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: if bere t 
Sahvint * SPE en ee OTS tAsct : 


wcore Be 


IF 


IF 


NORETRY!? 303 
IF BOOLEANCCOMMONCELL,[ 3% 
SOURCEFILES @MAKEFNC( "4S" 
WRITEASTERISKESTRUES 
GO TO EXITS 
ENDS % IF UPDATE WAS IN PROGRESS 
NORETRY#803 
IF BOOLEANCCOMMONCELL »6321]) THEN SOURCEFILES @MAKEFNC "1S "ei )3 
ENDS & IF EQY FOR HELP FROGRAM 
EVENTS(C1) NEQ 1 AND NOT BREAKORWRU THEN % BAD 
BEGIN 
MSGPTROSIF COMPILING THEN 12 ELSE 283 
IF DOGLICENSE THEN DOGCATCHER(LCWsAC#) D3 
SCWPREVS 8PREVRCOWSSLLWORDS3S 
INITIATEDWHILEGUSY SF ALSES 
END % BAD NEWS 


J) THEN 
rLLds 


ELSE 


BEGIN 

MSGRTRI03 

IF ACBASE*1)] %* WORKCi2) NEQ O THEN % CHAIN REQUEST 
BEGIN 
WANT t= VDISPATCH; 
IF ACBASE4#1)e(4216]) NEQ " " THEN GQOERRCACBASE*1)242)3 
ACBASE 41] ISAC BASE41) 466236); 
ACBASE*2) ts WORK(13)3 
END 


ENDS 
TWXOUTCLLeLLeOs2"*CONCISEBIT)3 


IF 


CEQWJMSG OR EVENTSC1)] NE@ 3) AND NOT BOOLEANCHELPTOGGLE) THEN 
BEGIN 
WRITEASTERIJSK #* FALSE 
WORKCO]SSCIF EVENTS(1J81 THEN “END " ELSE "ERR ")3 
MATCHCRUN@s"CANDE %) WORKCiJseRUNI ELSE 
BEGIN 
WORKEC 1188 
IF COMPILING THEN "COMPILE" ELSE 
IF RUNG,CL2%6)ai THEN FILENAME ELSE 
RUN 
ENO MATCH CANDES 
TIMEUSEDCWORKE 2] sTIMECONVCEVENTSL 3) 0016832) eFALSE) 23 
TIMEVSED CWORK C6JeTIMECONV CEVENTS [£4],016%32) + FALSED)S £0519" 


LOADCODE (WORK (5))3 30519" 
BLANKCWORKE 13235 SQUASHCWORKCOIJs) 7%") 3 BLANKCWORK(0])3 
TWXQUT CLEPWORK [OI] 27202)3 40519" 


IF SCHEOULINE THEN 
IF NOT NOSTOP THEN 


IF EVENTSC1] NEQ 1 THEN 
SCHEDERRORS % TERMINATE SCHEOQULE 


END IF EQJMSGs 


IAM ts 03 
END EQJ STUFF3 


WANT #3 VOISPATCH THEN % CHAIN REQUEST 
BEGIN 

RUN1 t# ACBASE+1]3 

RUN2 83 ACBASE+2)3 

END ELSE 


a : é @ « r 


14174000 
14175000 
14176000 
14177000 
14178000 
14179000 
14180000 
14181000 
14182000 
14483000 


14184000. 


14185000 
14186000 
14187000 
14188000 
14189000 
14190000 
14191000 
14192000 
14193000 
14194000 
14195000 
14196000 
14197000 
14198000 
14199000 
14200000 
14801000 
14202000 
142803000 
14204000 
14905000 
14206000 
14207000 
14208000 
14809000 
14210000 
14211000 
14212000 
14213000 
14213100 
14213200 
14244000 
14215000 
14216000 
14217000 
14248000 
14219000 
14220000 
14221000 
14222000 
14223000 
14224000 
14225000 
14226000 
142827000 
14228000 


Ol a a a HOO He tt tt st tt st Ht Ot a ta tt tt ot st a st 


S @ 


IF WAITFORt# IAM ® 0 THEN &% ALL MESSAGES ARE IN 


BEGIN 


ALLMCPMSG $8 BCLIBMSGCTRESRUN] $aRUNZ8 R023 
IF BOOLEANCHELPTOGGLE) THEN % TRY AND RECOVER 
IF NOT SCHEDULINE THEN &% PGM,MAY REQUIRE TWX INPUTS 


EnD J] 


EXITS 
END OF MCPMSG3 


OCT CCCTESIC SELES E SCORE SESE PSS OLE SESE SSCS ISAS ECS RC CLER ECS ESSSALSESOSSO SL. ©! 


PROCEDURE COBLITCA)3 


rp OOP PERT E CECE CCC CCAR ESSEC CSCO POSES EPCS ESC SESS ETC CECE CEC LSS Cee e eS 2 


BEG 


ENDs 


BEGIN LO 
LAB 
DI 
DI: 


BEGIN 

RUN1tS"HELP "3 
RUN2Ia"DISK "3 
WANTS@VOISPATCH3 
COMMONVALUE %# ESP13 


ERRQRMESSAGECWORKIS TWXOUTCLL»WORKCOJs47e CRLF D3 


END3 
F ALL DONES 


IN 
STREAM PROCEDURE NODISKMESSCWORKs AMOUNT 23 


CAL Ae Bs 
EL us 


ts LOC A’ SI t# LOC AMOUNTS 


@aWORKS STselOC A$ 


TALLY 8 83 


Ls BcCIF SC#"0" THEN BEGIN SI 


ARRAY ALQJ3 


$3 SI%4s TALLY 


VALUE AMQUNTS 


DS t# 8 DEC) 


sm TALLY*63 END 


DSs:e35,1T" SEGMENTS OF DISK ARE NOT AVAILABLE™G 


ELSE JUMP OUT)S 

B 38 TALLY OS $2 B CHR 
OSss6LIT” "3 

END; 

IF 4.80 THEN 

BEGIN WENEEOTOCOQLIT t* TRUES 
INCCNUDCOUNT 93 

END ELSE 


BEGIN NODISKMESSCWORKsEVENTS£C2) 23 


TWX 


OUTCLLeWORK(OJ] 24301 )3 


PREVMSG 1* MSGPOINTERS 
MSGROINTER $= 47} 


END} 
IAM t® W 


ANT t# WAITFOR $3 O3 


44 


IS 


14229000 
14230000 
14231000 
14832000 
14233000 
14234000 
14835000 
14236000 
14237000 
14238000 
14839000 
14240000 
14241000 
14842000 
14243000 
14244000 


363 LONG 


15000000 
15001000 
15002000 
15903000 
15004000 


START OF SEGMENT 


45 


Is 


15005000 
15005300 
15006000 
15007000 
15008000 
15009000 
15010000 
15011000 
15012000 
13012100 
15013000 


15014000 
15915000 
15016000 
15017000 
15916000 
15019000 
15920000 
15021000 
15022000 
15923000 
15924000 


T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
a 
1 
T 
T 
’ 


ee ee Ree ee ee ee ee eee 


Se eee 


0340 
0340 
0344 
0342 
0347 
03468 
0350 
0350 
0354 
0353 
0353 
0354 
0357 
0357 
0357 
0358 
NEXT SEG 


0064 
0064 
0064 
0064 
0061 

ARERR AH EY 
0000 
0000 
0000 
0000 
0004 
0004 
0003 
0005 
9005 
0010 
0015 


0012 


0012 
0015 
0016 
0016 
00148 
0020 
0022 
0023 
0023 
0025 


26 LONG» NEXT SEG 


8 


45 


8 


‘ogre E 


- iof-e ark eae! 


OPT ECETOESCCCC CCCI ECP eee eee Pee ecco eee eee ee eee cre 2 
PROCEDURE MCPOKCA)3 ARRAY ACO}3 
Bie Ra RR EEE ETE ETE ERE EEE EE eae 


BEGIN 
STREAM PROCEDURE OKMESSCWORK 23 


BEGIN DI t= WORKS 
DSts4iLIT"OISK SPACE FOUND, YOU ARE RUNNING AGAIN "3 
END; 


IF .L#0 THEN 

IF ¢DECRCNUDCOUNT))#0 THEN 

BEGIN TIMETQOKLINES ts TRUE; 
WENEEDTOCOOLIT te FALSEs 

END ELSE 

IF NQUOCOUNT LSS O THEN NUDCOVNT %7 © ELSE ELSE 

BEGIN OKMESSCWORK)3 
TWXOUTCLLeWORKLO] > 449 CRLF DS 
MSGROINTER t= PREVMSG3 
PREVMSG #2 Q;3 

ENO; 

JAM $s O3 

END3 


SESE REPESISCSCELC CSS S ES ECA ETE EERE CPCS EPC LECCE CCST ECE EEC ERC SE eee 


BOOLEAN PROCEDURE MAKEOKE VENTS 
Re Ee ERNE EER EERE E TERRE EERE ae 


BEGIN 
STREAM PROCEDURE OKMESS(WORK)3 


BEGIN OJ ta WORK3 
OS t* 28 LIT"SYSTEM OK = YOU MAY PROCEEDe"; 


END; 


DEFINE ACAL) & LINECLL AL) #3 
LABEL EXITS 
FOR LL #3 LLPREV*S STEP 2 UNTIL MAXLINES DO 
IF NODISKMCP THEN 
BEGIN 
EVENTS(O] §* OBLLEIZS3SFISIRVMCPOK (418338793 
OKMESS(WORK)3 
TWXOUTC(LL»*WORKCO)s29eCRLF Qi 
MAKEQKEVENT 8% TRUE} 
GO TO EXITs 


END} 
TIMETOOKLINES &% MAKEOKEVENT 38% FALSE3 
EXITS 


46 1S 


16000000 
16001000 
16002000 
16603000 
16004000 


START GF SEGMENT 


16005000 
16006000 
16007000 


16008000 
16009000 
16010000 
16041000 
16012000 
16013000 
16914000 
16035000 
16016000 
16917000 
16018000 
16019000 
16020000 


23 LONG 


16500000 
16501000 
16902000 
165903000 
16904000 


START OF SEGMENT 


166805000 
16506000 
16507000 


16507500 
16508000 
16509000 
16510000 
16511000 
16512000 
16533000 
165144000 
16515000 
416516000 
16517000 
16816000 
16519000 


AAW ao 


T 
T 
A. 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
’ 


4a44 eas 


Se ee) 


0064 
0064 
0064 
0064 
0064 
PRESS AE SY 
0000 
0900 
0005 


0006 
0006 
0009 
0011 
0013 
0013 
0016 
0017 
0019 
0020 
0022 
0022 
0022 
NEXT SEG 


0064 
0064 
0064 
0064 
0064 


eaeeie ane 


0000 
0000 
0004 


0004 
0004 
0004 
0009 
0010 
0010 
0013 
0014 
0016 
0047 
0017 
0018 
0020 


46 


8 


AT 


Sureieii trie, ine. ge Vag 


i 


i 


END} 


PEO PC CCC Te CC ere eT Tere cece cS eC ice r ecco rrr ir eres tf) 
PROCEOURE TEACHERCLCWsA)s BOOLEAN LCWS ARRAY ALO]3 
Bit IG III I Ot Ra ER aE RI ie 


BEGIN 
REAL TePTRs INDXX3 


LABEL MESAGEs QUIT» EXIT; 
IF SEQ@MODE OR NOT LOGGEDON THEN GO QUITS 
IF NOT BOOLEANCDOING) THEN % CASE O 


BEGIN 
PTR $e WORKADRS3 INOX te 14 CLEARCALCBASE41)52)3 
WHILE es 4 AND INOX LEQ 2 00 % SCAN INPUT RECORD 
BEGI 
TeSCANCPTReACBASE ¢+INDXJe IF 
INDX# 1 THEN "Z" ELSE "9"%>» WORKENDADRS»X)3 
IF ACBASE+1] NEQ QMARK THEN INDX&SINOX413 
END# & SCAN 
T te ACBASE+1).0654213 &% FIRST INPUT AFTER QMK 
MATCHCTs"CONTINU") GO QUITS % IGNORE “CONTINUE” INPUT 
If .COMPARCTs"STATUS ™) OR Tae" THEN 
BEGIN IAM %= VSTATUSCHECKS GO TO EXITS END; 
MATCHC Ts "DATA ") & SUCCEEDING INPUT GOES TO DATA FILE 


BEGIN 
IF RUNNING OR COMPILING THEN GO TO MESSAGES 
IF FILENAME =» 0 THEN GOERRCY NO FILE%9 123 
IF FILETYPE NEQ@ & THEN GOERR(T,60)3 % WRONG TYPE FILE 
ee nee $s TRUES LITOUTC "OK %e1)3 GO QUITS 
Nos 
MATCHC Ts "END 
BEGIN 
IF RUNNING OR COMPILING THEN GO TO MESAGE3 
IF NOT DATAENABLED THEN GOERR(T28)3 
DATAMENABLED %* FALSE} WRITEASTERISKSSTRUES GO QUIT; 
ENDS 
Ip NOT SCHEQULINE THEN 
BEGIN 
MATCHC(Ts "TO 


") & RETURN TO COMMAND MODE 


") & SS MESSAGE 


EGIN 
IF ACBASE+2),(182] GTR O THEN GO TO MESAGE3 
STICKCPTRel sNORKENDADRS 23 
SSMSGs LITOUTC "S$ "e123 GO QUITS 


END3 

MATCHC Te "TAPE ") % SWITCH TO PAPER TAPE MODE 
BEGIN 
MATCHCRUN2s"CANDE ") GOQERRC "NO PRGM98)3 


IF NOT RUNNING THEN GOERR("NOPRGRM",8)3 
IF DEVICEsCONRAC OR DEVICEsBIDS THEN GOERRC 125623 
% PUT YOUR FUNNY TERMINALS HERE 


READTAPECLL&1303394197) s8s0,USERCODE)S GO QUITS 


40102° 
40102" 


40101" 


47 15S 


16920000 


T 


24 LONG» 


25000000 
25000100 
25000200 
25000300 
25000400 


START QF SEGMENT 


25000500 
25000600 
29000700 
29000800 
25000900 
25001000 
25001100 
25001200 
25001210 
25001300 
25901400 
25001500 
25001600 
25901610 
25001620 
25001700 
25901800 
25901900 
25002000 
25002100 
25002200 
25002300 
25002400 
25802500 
25002600 
25002700 
25002800 
2$002900 
29003000 
25003100 
25003200 
25003300 
25003400 
25003500 
25003600 
25003700 
25003600 
25003900 
25003910 
25003920 
25004000 
25004300 
25004200 
25004300 
25004400 


AA HHH HHH HA DH HH HE A A OVA Ha 


0021 


NEXT SEG 


0061 
0061 
0064 
0064 
0064 

eeeaterwen 
0000 
0000 
0002 
0003 
0003 
0007 
0009 
0009 
0013 
0016 
0020 
0020 
0023 
0025 
0027 
0032 
0033 
0034 
0036 
0045 
0054 
0056 
0056 
0057 
0058 
0060 
0068 
0073 
0073 
0074 
0074 
0076 
0076 
0079 
0084 
0085 
0065 
0086 
0087 
0097 
0104 
O4tt 
0114 
Qing 
O4dt 


8 


48 


cy Sy 


Bree ok! 


END; 
END} & IF NOT SCHEOQULINE 
MESAGE? 


If PREVRCW = BASE LEQ 35 THEN % NOT ENOUGH ROOM 
IF INITIATEQWHILEBUSY THEN % ORIGINAL REQUEST INCOMPLETE 
BEGIN 
IF RUNNING THEN LITOUTC"RUNNING"s1) ELSE 
IF COMPILING THEN LITOUTC"CMPILNG"s1) ELSE 
BEGIN 
LCojte" STATUS"S BLANK(L 


CO "3 BLANKC(LE1I23 
TWXOUTCLLeL LOJeties2"CONCIS 


J)3 LELIts"OK 
EB1T)3 
ENOD3 
GO TO QUITS 
ENDS 
IF OATAENABLED THEN MSGPTRI"683% YOU ARE IN DATA MODE 
LLOISKREAD t= MSGPTR DIV 3 + MSGFILELOCS 
COING t= 43 
WANT 48% VDISKREAD3 
EnD % CASE O 
ELSE 
BEGIN 
If T #:® MSGPTR MOD 3 NEQ O THEN MOVECLO*WORDS-WORK(TX10) »WORK(OJ)3 
TwXOUTC LL eWORKEO] 2642 = CONCISEBIT)3 INQUIRY #3 FALSE 
MSGPTR tx REALCRUNNING OR COMPILING) * MSGPTR3 
Ip SCHEDULINE THEN 
IF NOT NOSTOP THEN 
IF NOT BOOLEANCSCHEDNAME,f181]) THEN 


BEGIN 
TAM %# VCHANGES 
ACBASE}] t* SCHEONAME,(C6!42]3 
ACBASE+1) t* 633 4 "aBORTED” FILE TYPE 
FINOGLL&ITAMC 3384197) sO ,SCHEDNAME C6842)» 
USERCODE sUSERCODE )3 

SCHEDNAME 3a C@SCHEDNAME)S & TERMINATING FLAG 
TEMP ts 2% DOING $e 13 
WAJTFOR #* JAM} 
GO TQ EXIT; 
END ELSE SCHEDGOTOC #123 

QUIT: TAM s= O03 INQUIRY t= FALSES 

EnOs % CASE 1 
EXIT? 
END PROCEDURE TEACHERS 


See RH EEE E EERE EEN EERE Eee eS 


PROCEDURE INPUTCLOWsAs TTY INPUT*DKOFFSET*#DISKLOC)3 

IE TECIPETITTI TT LILII ILL TILT TILT IL iT Litt tritici ect eet hice cere eas es | 
VALUE OKOFFSETsOISKLOCS 

REAL OKOFFSET#OISKLOCeTTYINPUT3 

BOQLEAN LCWe 

ARRAY ACOI3 


BEGIN 
REAL STREAM PROCEDURE QUTSUPRCINPUTs»OUTPUT)S VALUE INPUT; 


25004500 
25004600 
25004700 
25004710 
25004715 
25004720 
25004725 
28004730 
25004735 
25004740 
25004745 
25004750 
25004755 
25004760 
25004770 
25004800 
29004900 
25005000 
25005100 
25005200 
25005300 
23905400 
25005500 
25005600 
25005700 
25005710 
25005720 
25005730 
25005740 
25005750 
25005760 
25005770 
25005780 
25005790 
25905600 
25005840 
25005820 
25005830 
25005840 
25005900 
25006000 
2006400 


187 LONG 


26000000 
26900100 
26000200 
26900300 
26000400 
26000500 
26000600 
26000700 
26000710 


START QF SEGMENT 


ee eee 


0144 
0444 
0114 
0115 
0116 
0417 
0118 
0120 
0124 
0126 
0130 
0133 
0133 
0136 
0136 
0138 
O1s4 
0144 
142 
0142 
0142 
0143 
0148 
0153 
0157 
0157 
0159 
0164 
0164 
0162 
Q165 
0166 
0166 
0172 
0173 
0175 
0176 
0176 
0180 
0184 
O18a 
0164 


NEXT SEG 


0064 
Q064 
0064 
0064 
0064 
0061 
0064 
0064 
0064 


&eabidkekie 


@ a de oe. oh ees ow, e 

® BEGIN 20000720 T 0000 @ 
- DIt@,0C INPUTs OSt#7FILLS 26000730 T 0000 
SI$BCOC INPUTS DISsQUTPUTS 26000740 tT 0000 

| BCIF SCa" " THEN SItsSl+1 ELSE 26000750 T 0004 & 
BEGIN DSt3CHRs TALLY!=TALLY#13 END)3 26800760 T 0002 
OUTSUPRSSTALLY3 26000770 7 0003 

@ END STREAM PROCEDURE OUTSUPR3 26000780 7 0003 @ 

® @ 
STREAM PROCEDURE PLSWAITCWORK)3 26000790 T 0004 

@ BEGIN 26000792 7 0004 ® 
DItswORKS Dst#26LIT"PLEASE WAIT = NO USER DISK" 26000794 7 0005 
END STREAM PROCEDURE PLSWAITS 26000795 T 0008 

@ e 

©@ @ 
COMMENT THIS PROCEDURE SCANS THE INPUT USING SCANNER AND 26000800 T ovog 
THEN CONTROLS THE PROCESS OF WHAT IS FOUND, 26000900 7 0009 

@ IT BUILDS THE TABLES FOR pATA LINES» AND 26001000 T 0009 @ 
: CALLS ON THE VERB PROCESSORS FOR COMMAND LINES» 26001100 T 0009 
END COMMENTS 26001200 T 9009 

] STREAM PROCEDURE FIXERRORMSG(SEQsL)3 VALUE SEQ 26001210 T 0009 @ 
BEGIN 20001220 T 0009 
DI'SLOC SEQS OStS7FILLS SI#sLOUC SEQs DIteL; 26001230 T 0009 

@ DSt™i6LIT"FIX SYNTX ERR @ "3 26001240 T 0010 @ 
BCIF SC3" " THEN SIteS144 ELSE DSt*CHR)S OS#sOLIT" "3 26001250 T 0012 
END STREAM PROCEDURE FIXERRORMSGS 26001260 T 0045 

@ @ 

@ . @ 
DEFINE VERBV ® ALSREGJ].Cy0%e)] # 26001300 T 0018 
PAR ® ACSREG],£2518] # 26001400 T 0015 

@ SWDS * ACBASE],(4018) #» 26001500 7 0035 @ 
TBLTOOK = 28, 26001600 T 0015 
MOREVERBS = } #3 26001700 T 0015 

® LABEL CENTRAL» SCANL»NODISKSEXITS 26001800 T 0015 ® 
REAL, TES 26001900 TY 0015 
DEFINE TABLTAB1) © WORKETABL) #3 26002000 T 0048 

e CENTRAL? CASE DOING OF 26002100 T 0015 e 
BEGIN 26002200 T 0016 
BEGIN % CASE 0 26002300 TY 0016 

@ IF NOT LOGGEDON THEN 26002400 7 0016 @ 
BEGIN 26902500 tT 0017 
IAM t= VHELLOS OOING t= 13 26002600 T 0048 

e % VOID . 26002650 T 0019 & 
GO EXIT 26002700 T 0019 
END? 26002800 T 0020 

] IF SEQMODE THEN % COULD BE LEFTARROW OR DATA LINEs 26002900 T 0020 é 
BEGIN % CHECK LEFT ARROW. 26003000 T 0024 
IF WORK{O] GTR 1 THEN 26003100 f 0024 

BEGIN % SEQMODE DATA LINE. 26003200 T 0022 e 
T3#2i ACBASE] S#@SEQING RSEQLASTSESEQLAST+INCREMENTS 26003300 T 0023 
IF SCHEDULINE THEN 26003310 T 0028 

\ @ 

a] ] 


sre he 


t 


BEGIN &SEND OUT SEQ NUMBER, THE MCP WILL NOT OU IT 


ENOs 


E ts OUTSUPRCDECCONV( SEQLAST+INCREMENT 2s WORK(QO) D3 


TWXOUTCLL»*WORKCOJsEsNOCRLE D3 


IF DEVICESCONRAC OR QEVICESBIDS THEN 


IF SE@LASTSCHKSEQNMBR THEN OUTPUTNUMBERS(CLCWeAL4) D3 


END ELSE T ## 53 &% NULL INPUT 


END 


BEGIN 


END E 
BEGIN 


ENDS 


BEGIN 
BEGIN 


BEGIN 
COMMENT VERB C 


ELSE 


IF DATAENABLED THEN & INPUT TO DATA FILE 


ALBASEJ t* LASTRECORD t* LASTRECORD + 13 


7 te 23 
LSeé 


% NOT SEQ MODE. 
SCANNERCWORKADRS»AL *) +L CWs WORKENDADRS ) 3 
SREG $# BASE + 43 
TEBACBASEJ .C383)3 


CASE T OF 


% HANDLE THE INPUT LINE, 


® OQOPS$ SCANNER RETURNED ZERO 
% WHICH MEANS THERE WAS A COMMENT» 
& $0 JUST SKIP IT 


TAMEBWANTE=O3 
END SCANNER CASE 03 


HECKs 


%® SCANNER & 1 3 WE HAVE A VERB 


IF CHECKBITCALSREG)],(939] DIV 2sRESTRICTEDVERBS) THEN 


BEGIN ERRSWteVERBTABLECACSREG).(999))3 WANTS SVERRORS MSGPTRE 493 


GO TO EXITS ENDS & VSER IS NOT PERMITTED TO USE VERB} 
WRITEASTERISK %8 TRUES 


SCANLS 


BEGIN 


TEMPE® 13 


PARAM 8% SW0S}3 
IF WENEEDTOCOOLIT THEN 
BEGIN DOING ts 33 

GO TO NODISK; 


ENO} 


WANT t@ VERBV3 


IF VERBV 


IF ACBASEJ],¢(18415] GTR 1 THEN DOING 8% MUREVERBS 


® VSEQ@ THEN TAM#20 ELSE 


ELSE IAM ts 03 
END SCANNER CASE 143 


® SCANNER & 2! WE HAVE A SEQ NUMBERS 


IF FILENAME # O OR 
NOT FILESOK THEN GOERRC("NO FILE %91)3 
E ft ACSREGJ& DISKLOC( 4336812) 
& OKOFFSETC16%4335 93 
IF SEQMODE OR DATAENABLED THEN T 3% 2 
ELSE BEGIN TE#ACSREG*1)3 SEQINIZALCSREGI4 ENDS 
EeCit2) is T3 


IF T®3 THEN IF FIXERRORCWORKADRS*WORKENDADRS) THEN 


BEGIN 


FIXERRORMSG( pECCONVCALSREGI 6493 TWXOUTC LLL (0) 2240493 


MSGPTR tm 213 JAM 32 03 GO TO EXITS 


END3 
COMMENT 


NOW PUT PUT ENTRY INTO TABLES 


NOSAVE $3 FALSE3 


26003320 
26003330 
26003340 
26003350 
26003360 
26003370 
26003400 
26003500 
26003510 
26003520 
26003530 
26003540 
26003550 
26003600 
26003700 
26003800 
26003900 
26004000 
26004400 
26004200 
26004300 
26004400 
26904500 
26004600 
26004700 
26004800 
26004810 
26004820 
26004830 
20004840 
20004900 
26005000 
26005100 
26005120 
26005140 
26005360 
26005180 
26005200 
26005250 
26005300 
26005400 
26005500 
26005600 
26005700 
26005800 
26005900 
26006000 
26006400 
26006200 
26006300 
26006310 
26006320 
26006330 
26006340 
26006350 
26006400 
26006450 


Ea tt ttt st st a tt st tt tt tt ot et a a 


0028 
0029 
0033 
0035 
0035 
0037 
0044 
0043 
0043 
0045 
0045 
0048 
0049 
0049 
0049 
0052 
0053 
0054 
0054 
0055 
0055 
0055 
0055 
0055 
0056 
0037 
0057 
0057 
0060 
0064 
0065 
0067 
0068 
0069 
0070 
0074 
0072 
0072 
0073 
0076 
0079 
0081 
00814 
0081 
0082 
0090 
0094 
0093 
0095 
0099 
0101 
0103 
0104 
0108 
0410 
0110 
0410 


meis Porn, irc a+ P4127 


core Susi 


7 BA 


GOODOBY $= FALSE3 * OBJ DOES NOT MATCH SOURCE 
IF DOGHOQUSECLL] LE@ O THEN & FIRST DOG, 
DOGHOUSECLL] #eCTRANDBASECROWINUSE)3 
ACTBASE # TPENTRY) 45 E3 
ING CTPCOUNT)3 
IF TPENTRY LSS 9 THEN 
BEGIN INC (TPENTRY)3 
ACTPENTRY) ts TENBS 
TAM &® DOING t= WANT $5 03 
END ELSE 
BEGIN 
DQING t= TBLTQDK; 
IF TPREC GTR QO THEN & GET BACK WHAT WAS WRITTEN BEFOREs 
BEGIN 
LLOISKREAD ts TPDKADR3 
TEMP $3 35 WANT 8% VOISKREAD3 
END ELSE GO TO CENTRAL 2 


ENDs 
END SCANNER CASE 23 
BEGIN ® SCANNER 3 3% WE HAVE A SPEC CHAR 


IAM $s O3 

END SCANNER CASE 33 

BEGIN % SCANNER # 4! ITS AN SS MSG 
WRITEASTERISK 82 TRUE} 

SSMSG3 
IAM &8% 03 

END CASE 4} 

BEGIN ¥ CASE 5 = NULL INPUT 
WRITEASTERISK 46 SEQMODES % RESPOND IF ENDING SEQ. MODE 
SEQMODE t*® FALSE3 
IAM t% 03 

END CASE 53 

END SCANNER CASES; 


END CASE Q3 
BEGIN * CASE 1% MOREVERBS 
IF WENEEOTOCOOLIT THEN 
BEGIN PLSWAITCWORK)3 
TWXOUTCLL»WORK(0J)22651)3 
WAITFOR $= VMCPQK3 
NODISKMCP ta TRUES 
MSGPOINTER ts 463 
GO TO EXIT) , 
ENO3 
SREG 3% SREG + (T %& PAR «+ 1)3 
TEMP $8 TEMP + T3 
PARAM ta PARAM © Té 
WANT tm VERBV3 
IF CHECKBITCALCSREGI.C9%9) DIV 2eRESTRICTEQVERBS) THEN 
BEGIN 
ERRSW #3 VERBTABLECACSREG] (939113 
WANT %@ VERRORS MSGPTR ts 493 
GO TO EXITS 
ENO} 
IF SWOS a TEMP + PAR THEN JAM #8 DOING #8 Q3 
END CASE j3 


NODYSK3 


260060500 Tf 04313 
26006600 T 0115 
26006700 T 0116 
26006800 T 0118 
26006900 T 0120 
26007000 T 0124 
26007100 fF 0126 
26007200 T 0130 
26007300 T 0132 
26007400 T O134 
26007500 T 0134 
26007600 T 0136 
26007700 + 0136 
26007800 T 0138 
26007900 T 0138 
26008000 T 0144 
26008100 T 0143 
26008200 T 0143 
26008300 T 0143 
26808400 7 0143 
26009200 T 0143 
26009300 Tt O144 
26009400 T 0144 
26009500 T 0144 
26009600 T 0347 
26009700 T 0147 
26009800 T O48 
26009810 T 0148 
26009820 T 0148 
26009830 T 0154 
26809840 rt 0153 
26009850 F 0154 
26009900 T 0458 

START OF SEGMENT weettwewne 

90 18 7 LONGs NEXT SEG 
26010000 7 0155 
26010100 T 90156 
26010110 T 0156 
26010120 T 0156 
26010130 fT 0159 
26010140 T 0160 
26010150 T 0161 
26010160 T 0163 
26010170 T 0165 
26010180 T 0165 
26010200 T 0165 
26010300 T 0168 
26010400 T 0169 
26010500 T 0171 
26010510 T 0472 
26010520 T 0175 
26010530 T 0176 
26010540 T 0177 
26010550 7 0179 
26010560 T 0160 
26010600 T 0180 
26010700 T 0184 


20 
49 


i4tlt 


hagore Basins 


. af Urine, ted. ey 
$ : i : 


EXIT 


Oe RECEP CERCSCOS ELEC E EC SSOCOCCLOOLOOCCOS EP ES ECS LOPES EEC LESS CEES ESE SE SLES. S| 


BEGIN %® CASE 2! TBLTOOK 
CHKPTCAC#J)3 
IF TPREC LSS 2 THEN 
INCCTPREC) 
ELSE 


BEGIN 
TPREC te O03 


INCCTPOKREL)3 
IF TPOKREL GTR 14 THEN 
BEGIN LITOUTC™CWAIT)%54)3 WANTS SVUPDATE END3 

ENDS 

TPENTRY && JAM $8 03 
END CASE 23 
GO TO SCAN}3 
END ALL CASES 


® CASE 3 


’ 
END USER INPUTS 


PRACEDURE DISPATCHCLCWsA)s BOOLEAN LCWs ARRAY ALO]; 


ORC RCC POECESESS CRESS REESE E SELES ERE SESE ESE ERC C SER CERES CRESSLER LEE ES 


BEGIN % STARTS JOBS 
REAL CHUNKSS 


CLEARCWORK(EO3s30)3 


WORKLO] s8WORKC14)9SRUNIG 
WORKEDC1)3sWORKOC3) &8RUN2S 
WORK(23]92082(8838810)3 


WORKC16) 
WORKE17) 


% FIRST NAME, 

® SECOND NAME 

® EXECUTE CODE 

teIF PROCESSLIMIT GTR O THEN PROCESSLIMIT ELSE 340003 
talf IOLIMIT GTR O THEN JOLIMIT ELSE 540003 


IF CORESIZE GTR O THEN % CORE ESTIMATE GIVEN 


BEGIN 
CORESIZEtsIF CORESIZE LSS 2048 THEN 32 ELSE CORESIZE DIV 643 


WORKC 20] $8CORESIZE & 1623478495 & CANT EXPAND CORE 


ENDS 
WORKC213 
WORK( 24) 
TAM$=Q3 


122563 % STACK SIZE 
SSUSERCODES % USER CODE 
WANT $= WAITFOR $= VMCPMSGS TEMP te 03 


MATCHCRUN2Z,CO842)e"CANDE “) & CANDE JOB TO RUN 


BEGIN 


MATGHCRUNA*"QUIKLST") CHUNKS#32 ELSE 
MATCHCRUNY* "PUNCH ") CHUNKS#%2 ELSE 


MATCH 
MATE6H 


CRUNL2 "LOAD ") CHUNKS#*3 ELSE 
CRUNIs "DELETE "2 CHUNKS#%3 ELSE 


MATCHCRUNI*"LFILES ") CHUNKS$83 ELSE 


MATCH 
MATCH 


CRUNLe "LIST ") CHUNKS#®6 ELSE 


CRUNL2"PAPER ") CHUNKS#35 ELSE 


CHUNKS 3343 
WORKEZOJERCCHUNKSH16) &@ JC23478473 
WORKFO].C2tL3¢eis &% NOT OS*ABLE 


WORK 


L]tseERRSW 


30104" 


40510" 


26010800 
26010900 
26011000 
26011100 
26011200 
26011300 
26011400 
26811500 
26011520 
26011550 
26011600 
26011700 
26041600 
26011850 
260341900 


START OF SEGMENT 
S LONGse NEXT SEG 


21 #18 


49 I$ 


26012000 
26012100 


0185 
0185 
0186 
0188 
0188 
0492 
0192 
0195 
0199 
0200 
0202 
0202 
0205 
0206 
0208 
WHERE EH 


AA AHHH ttt 


T 0208 
T 0209 


212 LONGs NEXT SEG 


27000000 
27000100 
27000200 
27000300 
27000400 


START OF SEGMENT 


27000500 
27000600 
27000700 
27000800 
27000900 
27001000 
27001100 
27001200 
27001300 
27001400 
27001500 
27001600 
27001700 
27001800 
27901900 
27002000 
270902100 
27002200 
27902300 
27002400 
27002500 
27002600 
27902700 
27002800 
27002900 
27003000 
270034300 


0064 
0064 
0061 
0064 
0064 

eeehkeahan 
0000 
0004 
0003 
0006 
0008 
0014 
0015 
9018 
0016 
0049 
0024 
0021 
0023 
0024 
0027 
9030 
0030 
0033 
0042 
0047 
0052 
0087 
0062 
0067 
0069 
0072 
0075 


at te st tt tt to st st st tk et 


21 
49 


32 


e " 2 . @ wf 6 t 6 6 6 « 

WORK( 18) 884 & SCHEDULINR(4684794)3 % PRIORITY 27903290 
WORKCI9ISSESPI3 27003300 
MSGPTREegs3 27003400 
ENO 27003500 
ELSE 27003600 
BEGIN % MUST BE USER TYPE JQB, 27003700 
WORKC24) $a STACKSIZE3 & COMPILER ESTe OR SPEC, VALVE 27003800 
WORK 19] 3 *COMMONVALUES 27003900 
WORK(18)] $e 4 + REAL CSCHEDULINE)3 27604000 
EQJMSG ts NOT CONCISES WRITEASTERISK t# CONCISE3 27004100 

IF RUN1Ief686] & O THEN %3 REQUIRES SHIFTING 27004200 
BEGIN 27004300 
WORKCOJ#mMIF RUNI,CL2$6391 THEN FILENAME ELSE * "&RUNLC6912336)3 27004400 

ENO SHIFTS 279004500 

IF NOT CONCISE AND NOT COMPARCRUN2Ze"DI SK ") THEN 27004600 

LY TOUTC"RUNNING"s 3%100002")3 27004610 
MSGPTR tm 443 27004700 
END IF NOT GANDE TYPE yOBSs 27004800 
WORKC2),033845)88wORK(48)3 % PRIORITY 27004900 
RUNNING ta TRUE 27005000 
STACKSIZEs#PROCESSLIMITS®IOLIMITSSCORESIZE s#CUMMONVALUE 3804 27005100 
IF EQUATED THEN 27005200 
IF NOTC CCOMPARCRUNZ»"CANDE ")) OR CCOMPARCRUN2Zs "DISK "))) THEN 27005300 
BEGIN . 27005400 
WORKCA3ISSFIRSTESPS % LABEL EQUATION 27005500 
ENTERESPC*LLsOeAL*])4 % SCRATCH TABLE ENTRIES 27005600 
EQUATED 3 FALSE 27005700 
END} 27005800 
RUNJOBCLLSWAITFOREI 3344137] sWORK(O) 2008 27005900 
ENO OF DISPATCH; 27006000 
52 18 135 LONG 

Be We ie a ae ke ae A te te te ER ERE EERE RT ERAEEKE HARE E RET 28000000 
PROCEDURE OISKREADCLCWs A)3 BOOLEAN LCws ARRAY ACQ]3 28000100 
CITE EITECIECIE CIC AE STAC ES CECE S CLE LOC SST S SESE CICE SSCL CCSICCASALALL ALS | 28000200 
BEGIN 28000300 

LABEL T3 28000350 
. START OF SEGMENT 

IF NOT BCDOING) TREN % DO READ INITIATE. 28000400 

BEGIN 28000500 

IF PREVRCW = BASE LE@ 33 THEN % AREA IS TOO SMALL. 28000600 

BEGIN 28000700 

ERRSW ts "TOOLONG"4 28000800 

MSGPOINTER &2 93 28000900 
ERRORCSREGLCWeACw IDs 28001000 

ENO IF NOT ENOUGH ROOM 26001100 

ELSE 28001200 

BEGIN 28001300 

TEMP 3a 343 28001400 

SREG #* CDOINGH#1) + SREG; 26001500 

WAITFOR t= TAM; 28001600 
DISKIOCLELSIAME 3394187 Je 12 AlOJsSREGs 30eLLDISKREAD)3 28001700 

END OF READ INITIATE 28001800 

END ELSE 28001900 


T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
a 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
’ 


AAA HHH Ht ot 


0076 
Q079 
0080 
Q081 
0084 
0064 
0082 
0083 
0084 
0087 
0093 
0094 
0095 
0100 
0100 
0104 
0105 
0106 
0106 
0109 
O1ld 
0114 
0114 
0119 
0119 
O21 
0123 
0126 
0126 
0126 
NEXT SEG 


0064 


0061 
0061 
0064 
00614 
RRHKENEH 
0000 
0000 
0004 
0002 
0002 
0003 
0004 
0006 
0006 
0006 
0009 
0009 
0011 
0012 
0015 
0015 


8 


33 


Tee 7 "is i 


BEGIN % READ IS COMPLETE NOW MOVE IT TO WORK, 
MOVEC 30s WORDS s ACSREGI »WORK(O) 23 
TAM $8 0} 

END IF READ COMPLETES 

END OF DISKREAD3 


TIPE CITE ES ELILI CTCL IPI ITIL CLALIT ELIT Lic ria rit tiritiiit) 
PROCEDURE OOPS (LCWse Ads BOOLEAN LCws ARRAY ALOQ3S 


rpOE UPR PESCE CCE COLE ESSSALE SSC CESOLOSS LEP ELSE OCS OSL ESCESSSESASCL ELS SS 


BEGIN 
LABEL T3 


SREG t* BASE = ACBASE]3 

ERRSW 83 ACLINCCSREG)]3 

MSGPOINTER $e 133 

ERROR CSREGs LCWs AL*))3 
END OF QUPS3 


He a UEHARA ARKEEEEEHAKKEAEKKERKRKRH KEE 


PROCEDURE DQOGCATCHER(|CWe2A)3 BOOLEAN LCWS ARRAY ALOIS 


OT ERITREA PE ECCT CESSES CCC CCCCEOCSOSCS STOLE SA SECC CSCOSC SCALE ES 


BEGIN 
LABEL 13 


IF NOT BOOLEAN COOING) THEN 
BEGIN %& COLLECT TANK RECORDS, 
DOING $e TEMP $e 14 DOGHOUSECLLI320;3 
LITOUTC™CWAIT) "»NOCRLF D3 
IF TPCOUNT NEQ O THEN WANT t# VUPDATES 
END 
ELSE # COLLECTION FINISHED. 
BEGIN 
DOGLICENSE $= FALSE TAM tm 03 
DOGCATCHERS#= DOGCATCHERS “13 
WECANUSEDATASSDOGCATCHERS LEQ 03 
LITOUTC"PROCEED" + CRLF )3 
END IF3 
END DOGCATCHERs 


Kote te ee EEE REE ER EERE EHERE THERE KAREENA Ea 


PROCEOURE COMPILEITCUCW2A)3 BOOLEAN LCWS ARRAY ALOIS 

Tee ETOCS CSET APP rere rer er err rer cic cirri riers 2 
BEGIN 

LABEL TH 


93:15 


26002000 
26002100 
28902200 
28002300 
28002400 


20 LONG 


30000000 
30000100 
30000200 
38000300 
30000350 


START OF SEGMENT 


34 1S 


30000400 
38000500 
30000600 
39000700 
30000800 


ne 


ee ee ee | 


7 LONG» 


31000000 
31600100 
34000200 
31900300 
31000350 


START OF SEGMENT 


25 IS 


31000400 
31000500 
31000600 
31000700 
31000800 
31000900 
31001000 
31001100 
31001200 
31001300 
31001400 
31001500 
31001600 
31901700 


19 LONG 


32000000 
32000100 
32900200 
32800300 
32000350 


START OF SEGMENT 


T 
T 
T 
T 
T 
as 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
’ 


444-44 


* 


* 


0015 
0016 
0016 
0019 
0019 

NEXT SEG 


0061 
0061 
Q064 
00614 
0064 
aeKTAW EY 
0000 
0004 
0003 
0004 
0006 
NEXT SEG 


0064 
0061 
0064 
0064 
0064 
aeekkekne 
0000 
0000 
0004 
0003 
0004 
0007 
Q007 
0007 
0010 
0013 
0014 
0016 
0017 
0017 
NEXT SEG 


0064 
0064 
0064 
0064 
0064 
RAHTR KEE 


24 


55 


8 


56 


Sipser das S727 


were Besigrs:. * 


» 4 32000400 yr Q000 
x GENERATE THE LABEL EQUATIONS FOR THE COMPILER 32000500 T 0000 
z 32000600 T 0000 
CLEAR(WORKLOI»59)3 32000700 T 0000 
WORKCOJI@CWORKC14)SSRUNL)4C6136]3 SFIRST NAME 32000800 T o0004 
WORKE1] $@WORKC15) #8USERCODES ZSECND NAME 32000900 T 0004 
WORKE3]38103  WORKCL7) 98123 SFILES TYPE 32001000 T 0006 
WORKS) te"COpE  "ade184385)3 32001100 T 0009 
WORKE 18) 88" CARD "e45194335)3 32001200 7r O0%4 
DISKWRITECESP2)3 CLEARCWORK(COJ229)3 32001300 T 0043 
x 32001400 T 0038 
x GENERATE THE OBYECT SKELETON ON THE DISKs 32001500 T 0048 
% 32001600 T 0048 
WORKELLGISSWORKEA7)S@3"7777777777"3 STIME LIMITS 32001700 t 0038 
WORK [18]3853 % PRIORITY 20525 32001800 Pp 0020 
WORKL20] ¢8°13 ZNO CORE EST 32001900 T 0022 
WORKL21318512;3 ZSTACK SIZE 32002000 T 0023 
DISKWRITECESP1)$ CLEARCWORKLO)229)3 32002100 T 0024 
% 32002200 T 0029 
% GENERATE THE COMPILER CALLOUT. 32002300 tT 0029 
% 32002400 t 0029 
WORKE14)8sABS(WORKLO)$sRUNZE160114315) 25 ¥=COMPILER, 32002500 T 0029 
WORKCOLI$SIF RUNLCON42I#"1S" THEN 32002600 T 0033 
FILENAME ELSE RUNLS FILENAME, 32002700 T 0035 
WORKCO2)$8484(8138510]8E5P1(18833315)s%0BU,S 32002800 T 003? 
WORKC3]#S"0ISK "% WORKEY3]$"ESP23%LBL EQN 32002900 T 0040 
WORKE18)354+SCHEDULINRS % PRIORITY 32003000 T 0043 
WORKL19]98IF COMMONVALUE LSS O THEN 1 ELSE 33 32003050 7 0045 
WORKC22]3883 WORKC24]9SUSERCODES %SAVESUSER 32003100 T 0049 
WORKL16] ts 32003110 T 0054 
IF PROGESSLIMIT GTR O THEN PROCESSLIMIT ELSE 3"7777777777"3 32003120 T 0052 
WORKL17] 32 32003430 T 0054 
IF IOLIMIT GTR O THEN IOLIMIT ELSE 3"7777777777%3 32003140 T 0055 
WORKC21) 32 32003150 T 0056 
IF STACKSIZE GTR 0 THEN STACKSIZE ELSE 512; 32003160 T 0058 
STACKSIZES#PROCESSLIMITSRIOLIMITS #CORESI ZE% @COMMONVALUE t B05 32003170 T 0064 
32003200 T 0064 
$ NOW TELL CANDE & THE MCP, 32003300 T 0064 
% 32003400 T 0064 
COMPILING $= TRUES WRITEASTERISK tm CONCISES 32003500 T 0064 
BOJMSG t= NOT CONCISES EOQYMSG t* NOT CONCISE 32003510 T 0069 
MSGPTR t= 433 %0CS 32003550 T 0076 
IAMIS03 WANTISWAITFORSSVMCPMSGS TEMP tm 33 32003600 T 0077 
RUNJOGCLLSNAITFOR( 3394197] sWORK[0} 00); 32003700 7 0080 
ESPINMGETESPOISKS ESP2ISGETESPOISK] 32003800 T 0082 
END OF COMPILEITS 32003900 T 0085 

56 IS 90 LONGs NEXT SEG 8 


COPS TEST CCST CSIP ILE CS eT TTPO ITEC TTS TST ATT ECTTIL TTT TLE TTT 33000000 7 0064 
PROCEOURE SETUPFILESCLCWeA)3 BOOLEAN LoWsS ARRAY ALOVS 33000100 T 0064 
TT TEESE TEST T ISI LECI STIL ILOLE CLIP ETE TT LILI LIETIETLALILELLTTTTiTrirTs 33000200 T 0064 
BEGIN 33000300 T 0064 
REAL Te Tis T23 33000400 T 0064 
START OF SEGMENT weedttawen 57 


tac. SV 


Moore Bescnecl = 


6 Bus ness ake 


LABEL RETRY» EXITS 


DEFINE 

LOOPCOUNT = ALBASEJ,C18815)#s» & COUNTER FOR “JN*USE”™ CONDITION 
FILECOUNT = ACBASEJ.033915]#-+ % COUNTER FOR FILES CREATED 

STACKSIZE 9 S#3 ® STACK WORDS REQUIRED FOR THIS ROUTINE 


DEFINE 

SEGMENTZERQADDRESS( SEGMENTZERQADORESS] = 
ACBASE+(SEGMENTZEROADDRESS1x2)°1 82 

HE ADERADDRESSCHEADERADDRESS] a 
ACBASE+(HEADERADDRESS1 x2) J #3 


STREAM PROCEDURE ERRORMESSAGE(T*USERCODE¢L 2 VALUE TeUSERCODES 
BEGIN 
SyteLoc Ts DItaL3 
2cSliwSl#1s OSSS7CHRS OSSaLIT"/")3 DILseDI 43 
DStaL7LIT™ CLEAREOCIN USE) "5 
END3 


CASE DOING OF 
BEGIN 
BEGIN % CASE O » INITIALIZATION OR RE*TRY 
FILESOK ts FALSES 
ACBASEJiaQs & RESET COUNTERS 


RETRY$ &% BRANCH POINT FOR ANOTHER ATTEMPT 


CLEARCACBASE 44 1233 
FYLECOUNT te# Q3 
LASTRECORD %= 03 
T $@ MAKEPNC™AT%eL D3 
MAKEFILECLLSIAMCIIFGLI7 Jade Te USERCODES 0010)3 
T te Ta" PC 1284206)3 
MAKEFILECLL&IAME332 4137 Jefe Ts USERCODEs (08104184754) oe TBLSZ)3 
% C4is1)] IN FILE TYPE SETS "FIXED" BIT IN HEADER 
TABLEINFO #= 3”"10000%; 
TEMP &8™ STACKSIZES 
DOING 28 13 
WAITFOR s@ JAMS 
END CASE 03 
TEP PSUEUPEUEEELURULILEPEEE ERE E PEPE LEPE ELUTE CEE e Erne 
BEGIN % CASE 1 = RESULTS OF CREATION REQUEST 
FILECOUNT t# FILECOQUNT + 413 % COUNT UP NUMBER OF "RESULTS" 
SEGMENTZERQADORESSCFILECOUNT) SSEVENTSC1)3 
HEADERADDRESS(CFILECOUNT) tSEVENTS(C 293 
Ip FILECOUNT*®1 THEN WAITFORS SIAM & "4T" RESULTS» WAIT FOR "LP" 
ELSE 
BEGIN 
IF CCTLEBSEGMENTZEROADORESS(1)) LSS 63) OR 

CCT2USSEGMENTZERQADORESS(2)) LSS 63) THEN 

BEGIN % INCORRECT RESULT 

IF (71430) OR (T2290) THEN % NO USER DISK CONDITION 

BEGIN 
MSGPOINTERS#463 % NO USER DISK 


33000500 
33000600 
33000700 
33000800 
330900900 
33001000 
33001100 
33001200 
33001300 
33001400 
33001500 
33001600 
33001700 
33001800 
33001900 
33002000 
33002100 
33002200 
33002300 


33002400 
33002500 
33002600 
33002700 
33002800 
33002900 
33003000 
33003100 
33003200 
33003300 
33003400 
33003500 
33003600 
33003700 
33003800 
33003900 
33004000 
33004100 
33004200 
33904300 
33004400 
33004500 
33004600 
33004700 
33004800 
33904900 
33005000 
33005100 
33005200 
33005300 
33905400 
33905500 
33005600 
33005700 


AA AAAs ttt 


ANA HA HHA HHA St tt ot tA HA te tt 


0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 


0000 


0000 
0000 
0000 
0000 
0000 
0000 
0000 
0002 
0004 


0005 
0005 
0005 
0005 
0005 
00048 
0009 
0010 
0011 
0013 
0045 
0016 
0020 
0024 
0026 
0026 
0027 
0028 
0029 
0029 
0030 
9030 
0030 
0033 
0037 
0040 
0042 
0043 
0045 
0048 
0054 
0054 
0053 
0054 


FILENAME $= SOURCEFILE te 03 
IF Tl GE@ 63 THEN &% "4T* FILE EXISTS 
REMOVEPILECLL&1 3033924197 pe MAKEFNC UT ei) sUSERCODE D3 
IF T2 GEQ 63 THEN 
REMOVEFILECLLALICISIGLI7 JeMAKEFNC™ LP ehh)» USERCODE)3 
[AM##0}3 
GO TO EXIT; 
ENDS % IF NO USER DISK 

IF (7171) OR (T2514) THEN % FILE “IN USE" CONDITION 
BEGIN 
T $3 CIF Tit THEN 4 ELSE 2)3 &% INDEX VALUE 
LLOISKREAD$ sHEADERADDRESS(T)3 
DOING ta 23 
WANT #@ VOISKREADS 
GO TO EXIT; 


ENDS 
GOERRC("BADFILE"»22)5 % SYSTEM ERROR» FUNNY RESULT 
ENDs & IF THERE WAS AN ERROR IN THE CREATION PROCESS 
ACTBASE+10) %# TENG; 
WRKTBLADR #& SEGMENTZEROADDRESS(2)4 & FIRST RECORD OF "1P" FILE 
CANCELCKPTCAL*J)3 
WORKCO]$203 WORKCAI]SeTENBS 
OISKWRITECSEGMENTZERQOADDRESS(1)23 &% SET UP "1T" FILE RECORD 
FILESOK &® TRUES 
TAMt #03 
ENDS & IF ALL RESULTS WERE IN 
EnDs % CASE 1 
Re meg O here ee HOPE EHER EEE R OHHH HHH ORO HHO OPER EH ED DOOR HOO EER 
BEGIN % CASE 2 = WEADER IN CORE 
LOOPCOUNT t2# LOOPCOUNT + 13 
IF LOORCOUNT GTR 2 THEN GOERR("BADFILE"»22)3 &% CANT CLEAR IT 
WORKCGIPSWORKE4] & OF 484523) & 06463283 20]3 
WORKCOIESWORKE9] & OLLE20828)3 
TseCIF SEGMENTZERQADDRESS(1)"1 THEN 1 ELSE 2)3 
DISKWRITECHEADERAQDORESS(T)23 
TesC]TF Ts. THEN "AT" ELSE "1P")3 
TssMAKEFNC Tob 23 
ERRORMESSAGE (Te USERCODEsL D3 
TWXOUTCO*sLEO)+ 3294 )3 
Go TO RETRY3 
ENDs % CASE 2 
END aLL CASES3 


EXIT! 
END PROCEDURE SETUPFILESS 


Rie te ee RHEE REET EKER AKEREHREKEEEKEE HE WS 


PROCEOURE ERRORGSeLCWeA)3 VALVE S3 REAL S$ BOOLEAN LCWAs ARRAY ALO]3 
pS SRC ESOESE SESE OSCE EE SEER ET EPS EPEC RCE SERS RSS C CECE LSE CECE SEES ES SES ASL © | 
BEGIN 
REAL Ti 


33005800 
33005900 
33006000 
33006100 
33006200 
33006300 
33006400 
33006500 
33006600 
33006700 
33006800 
33006900 
33007000 
33007100 
33007200 
33007300 
33007400 
33007500 
33007600 
33007700 
33007800 
33007900 
33008000 
33008100 
33008200 
33008300 
33008400 
33008500 
33008600 
33008700 
33008800 
339008900 
33009000 
33009100 
33009200 
33009300 
33009400 
33009500 
33009600 
33009700 
33009800 
33009900 


START OF SEGMENT 
4 LONGs 


298 1S 


37 1S 


33010000 
33010300 


ana a tt te te a st ot st 


0055 
0057 
0058 
0063 
0063 
0068 
0069 
0069 
Q069 
OOTY 
0072 
OOT4 
0077 
0078 
0078 
0079 
0079 
0085 
0085 
0066 
0089 
0094 
0093 
0098 
01900 
0101 
0101 
0102 
0102 
0102 
0405 
0115 
Olla 
Ol21 
0125 
0130 
0132 
0134 
0136 
0197 
0138 
0138 


ghee wene 


T 
T 


143 LONG» 


34000000 
34000100 
34000200 
34000300 
34900400 


START OF SEGMENT 


e444 


NEXT SEG 
0139 
01406 

NEXT SEG 


0064 
00614 
0064 
00614 
0061 


RHEE EN 


28 
57 


59 


PGuT ORO San 


. - ey E 2. 5 eo 


REAL STREAM PROCEDURE MKERCERRSWoeLsCHRTOGsSTRTIOGsMINTOG*PLSTOG)3 
VALUE ERRSWs CHRTOGsSTRTOGsMINTOGsPLSTOGS 


EXITs 


Ree POO e HHH OHH HH EOE EH ARE HEHE HEHEHE HERETO REHORHHECEEE PRE DOT ET EF ORS 


BEGIN LABEL EXITS 
STteLOC ERRSWS OLSsls OSSa5SLIT"ERRS "3 TALL YS #53 
CHRTOGCSI¢SSI+73 OStS1CHRS TALLY#aTALLY#13 YUMP GUT TO EXIT)3 
STRTOG(SIsaS1+13 OStwe7CHRS TALLYSeTALLY*#73 JUMP OUT TO EXIT) 
MINTOGCOSt*LIT"="3 TALLYSBTALLY +1 3 
PLSTOGCDSSmLIT%#"} TALLY#HTALLY41)4 
MINTOGS4D013 DS858 DECS DIS*MINTOGS DOSt7F ILLS 
STUSMINTOGS DOTS sMINTOG3 
SCIF S6s" " THEN SI$sSIe1 ELSE 

BEGIN OS#aCHRs TALLYSSTALLY*13 END); 


MKER @©% TALLY# 
END STREAM PROCEDURE MKER3 


TIBMKERCERRSWelOP42) ols CERRSWelLi2Jai de CERRSWel6812) GTR Ode» 
CERRSW, C182) #2) (ERRSW,C182)%3))3 
TWXOUTCLL se LCOJe Te 123 
WRITEASTERISK #§# FALSE3 
T #3 MSGPTR3 
LINECLEARCLCWseAL*) 23 
MSGPTR tm T3 
IF SCHEDULINE OR HELPFUL THEN 


BEGIN % TERMINATE SCHEDULE I/P & EXPLAIN WHY 
TAM ts VTEACHERS DOING $a 13 & DONT SCAN INPUT 
LLOISKREAD $* MSGPTR DIV 3 + MSGFYLELOC3 

WANT #3 VDISKREAD; 

WRITEASTERISK % TRUE 

ENDS 


END ERROR PROCEDURES 


(ECE RCESPCSES SEES ESAS E CL ERE REE PEER SRE SEE PE ETA ECR ERE RCS EES ED 4 


PROCEDURE 


VEER OER ERE HERE KH KAREE REE HT 


LABEL 


CLOSEWORKTABLE (LCWs AS BOOLEAN LCWS ARRAY ALO)3 


BEGIN 
CASELs EXIT; 


CASE DOING OF 
BEGIN 
BEGIN % CASE 9 
If GOQOOBJ THEN 
GOODOBY t= TPCOUNT # Q3 
IF NOT FILESOK THEN GOERR( "NO FILE"s1)3 
IF TPENTRY LSS 9 THEN ACTBASE*TPENTRY) $3 TENSS 
IF TPREC GTR O THEN 
BEGIN . 
LLDEISKREAD t# TPDKADR} 
DOING $= 13 


99 «IS 


34000500 
34000600 
34000700 
34000800 
34000900 
34001000 
34001100 
34001200 
34001300 
34001400 
34001500 
34001600 
34001700 
34001800 
34001900 


34002000 
34002100 
34002200 
34002300 
34902400 
34902500 
34002600 
34002700 
34002800 
34902900 
34003000 
34903100 
34903200 
34003300 
34003400 
34903500 


45 LONG 


35900000 
35000100 
35000200 
35000300 
35000400 


START OF SEGMENT 


35000500 
35000600 
35000700 
33000800 
35000900 
35001000 
33801100 
35001200 
35001300 
39001400 
35001500 


Att ts tt 


T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
’ 


ee ee ee eee ee ee) 


0000 
0000 
0000 
0000 
0001 
0004 
0006 
0008 
0010 
0011 
0012 
0013 
0014 
0014 
0015 


0016 
0016 
0022 
0025 
Q027 
0029 
0030 
0032 
0033 
0035 
0035 
0037 
0039 
00490 
0042 
0042 

NEXT SEG 


0064 
0064 
0064 
0064 
0064 

eeeeeetere 
0000 
0000 
0000 
0000 
0004 
0005 
0013 
0017 
00149 
0019 
0022 


8 


60 


ee ged te. 
: Seen eee poate 


zB Outre 4 


WANT % VOISKREAD3 
ENO ELSE GO TO CASE) 
END CASE O04 
CASE1L! 
BEGIN % CASE i 
CHKPTCAC#))3 
x vOID 
TAM 18% Q3 
END CASE 13 
END abl OASES3 


35001600 
35001700 
39001800 
35001900 
35002000 
35002100 
35002200 
35202300 
35002400 
35802500 


START OF SEGMENT 


61 IS 
EXIT 
END CLOSEWORKTABLE3 

60 IS 


TE PECICE CL CCOCCCCOC COLT LISTS LOCCLSCOST OSC C COO CC SLCC COSTS CSTE eee 
PROCEDURE CHNGPSWOCLCWsA); BOOLEAN LCW3 ARRAY A[O]s 

oe ee ee ge He ae te ae He eR eae Me ie dee ee Iie ei ei ik tie iii ik sei ii tnt io tink tink 
BEGIN 

LABEL ERR*EXIT3 


35002600 


ee ee ee 


0023 
0023 
0023 
0024 
0025 
0025 
0026 
0026 
002? 
0027 


eee ee 


3 LONGs NEXT SEG 


T 


0028 


35002700 Tt 0028 
30 LONGs NEXT SEG 


36000000 
36000100 
36900200 
36000300 
36000400 


START OF SEGMENT 


STREAM PROCEDURE OLOPSWOCW)3 
BEGIN DIsaWs DSt=30LIT"PLEASE ENTER YOUR OLD PASSWORD"S END; 


STREAM PROCEDURE NEWPSWO(W)3 
BEGIN DI s#Ws DSte2eLIT NEXT ENTER YOUR NEW PASSWORD"S ENDS 


STREAM PROCEDURE VFYPSWO(W)3 
BEGIy DIsaws OS**31LITPLEASE REPEAT YOUR NEW PASSWORD®"S END; 


STREAM PROCEDURE SCANPSWOCws,S,EADRS)3 VALVE EADRS} 


BEGIN LOCAL SV,s,0OV3 
SIssw3 
Oliss} OStas_ItT"a y OLtedI"73 
7CIF SC ws LEFTARROW THEN 
BEGIN 
SviwSys STIslLOC SV SlsteSI+53 
OvisDIs DIS alLOC EADRSS OLS *DI +53 
Ip 38C#DC THEN JUMP QUT 
~SpaeSys Ds sve 
END3 
IF Sc” "* THEN JUMP QUT} 
IF Sca"." THEN JUMP QUTS OStaCHR)} 
END STREAM PROCEDURE SCANPSWD3S 


36000800 
36000600 


36000700 
36000800 


36000900 
36001000 


36001010 
36001020 
36001030 
36001040 
36001050 
36601060 
36001070 
36001080 
36001090 
36001100 
36001110 
36001115 
36001120 
36901130 


T 
T 
T 
T 
T 
* 
T 
T 


41-4 


tt at et 


0064 
0064 
0064 
0064 


0064 
weit hehee 


6} 
60 


62 


ssrecBuciz 


Bement ere Oe REPO HCHO EERO H HOOD EOD eer een e Reet ePereeenenereterers 
CASE DOING OF 
BEGIN 

BEGIN % CASE 0 » REQUESTING CURRENT PASSWORD 

IF SCHEDULINE THEN GOERRC"CHANGE %240)3 

OLDPSWOCWORK)S TWXOUTCLL»®WORK(O) 93001 )3 

BLACKOUTS 

CLEARCACBASEJ22)3 TEMP38#3} DOINGtal3 

WAITFOR 8 VINPUTS 

END CASE 04 


Mave geeeceee 


BEGIN % CASE 1 = SCANNING FOR CURRENT PASSWORD 
SCAN@SWOCWORKL 112A CBASE J» WORKENDAORS)3 


eae eeooteeneonaereeaene 


MATCHCALBASE]¢(6842]5" ") GO ERR} 
NEWPSWBC WORK 3 TWXOUTCLL*HORKLO]s2854)3 
BLACKOUT: 

DOING $# 23 


WAITFOR #3 VINPUT3 
END CASE 13 

a Taira a een @teontve® SPeseoeevneoesnnatseeeaant ee eonaeeeeeonnne 
BEGIN % CASE "9 - SCANNING FOR’ NEW * PASSWORD 
SCANPSWOCWORKEC1Je2ACBASE 41) *WORKENDAORS)3 
MATCHCACBASE*1], (6842) 2" ") GO ERR3 
VEYPSWOCWORKIS TWXOUTCLEL 2 WORK(COJ]» 3424 )3 
BLACKOUTS 
DOING $ 33 
WAITFOR ta VINPUT2 
END CASE 23 

 PERPERETELERELEE ELECT EE TEPE TERETE LEE EEEPTETeEELPEPErerrrrrerer rr 
BEGIN % CASE 3 = SCANNING FOR VERIFICATION 
SCANPSWOCWORK( 4) 2A0BASE4¢2)] eWORKENDADRS)3 
MATCHCACBASE*I Js ACBASE*#2]) ELSE GO ERR3 
LLOISKREAD &# USERLOC3 
WANT 18 VDISKREAOS 
DOING $s 43 
ENO CASE 33 

-PORPEUEPETEPE PEEP EPEPTEPEETEPEPE PEPE ETELEPeTEPETETETERTETrerer erin 
BEGIN % CASE 4 # USERS/CANDE RECORD IN CORE 
MATCHCACBASEI] C6342) sWORKC2)) ELSE GO ERR} 
WORKE 2] RAL BASE OL )466942)3 
DISKWRITECUSERLOC )3 
LLOISKREADS=USERBASES % USERS/CANDE RECORD ZERO 
WANT $8 VDISKREAD3 
DOING ta 53 
END CASE 43 

Ser errrrrerervererrererrrere rs re 
BEGIN % CASE 5 * PUT NEW DATE 
WORKL2] 8 eDATES 
OTSKWRITE CUSERBASE)3 
TAM 8a O32 
END CASE 533 

ENO all cASES# 


40521° 


COREE OH OHHH ORTH EH HHEH OHHH OCCT EERE ROD 
N USERS/CANDE FILE 


20521° 


36003140 


36001200 
36001300 
36001400 
36901500 
36001600 
36001700 
36001800 
36001900 
36002000 
36002100 
36002200 
36002300 
36002400 
36002500 
36002600 
36002700 
36002800 
36002900 
36003000 
36003100 
36003200 
36003300 
36003400 
36003500 
36003600 
36003700 
36903800 
36003900 
36004000 
36004100 
36004200 
36004300 
36004400 
36004500 
36004600 
36004700 
36004800 
36004900 
36905000 
36005100 
36005200 
36005 300 
36005400 
36005500 
969059600 
36805700 
36005800 
36005900 
369006000 
36006100 
36006200 


START OF SEGMENT 


T 
T 
T 
T 


T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
bs 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
Pp 
T 
T 
T 
tT 
T 
T 
P 
T 
T 
T 
* 


0024 
0024 
0025 
0025 
0025 
0033 
0035 
0036 
0039 
0039 
0040 
Q040 
0040 
Q04a 
0046 
0048 
0049 
9050 
0050 
O05 
0051 
0051 
0054 
0058 
0060 
0064 
0062 
0062 
0063 
0063 
0063 
0066 
0069 
00714 
0074 
0074 
0073 
0073 
0073 
0076 
0080 
0083 
0084 
0085 
0086 
0086 
0086 
0086 
0088 
0094 
0092 
0092 


eettteteen 


63 


GO TO ExIT3 


ERRS 


LITOUTC"BADCODE's1)4 MSGPTR8s213 LINECLEARCLCWS AL e) 3 


EXITs 


END PROCEDURE CHANGEP ASSWORD3 


Beha ea ER ER ERE EEE EERE EERE ERE REE EAD 


PROCEOURE 


THYMECL CWA AD} 


TTT TE SECC SITS CLAPP I CISC E CSCO LACE L LPS COLIC ELITIST TCLS ATLL Ler Te 


BOOLEAN 
ARRAY 


BEGIN 


ENB 


LCWs 
ACOs 


LABEL DUMMY; 


WORKCO] &$*% "USER I[S"3 BLANK CWORK(OJ)3 
WORKCA)] ¢& YUSERCQDES BLANK CWORKE 1] 23 
WORKC2I3@DECCONV(LEL DS WORKC2I4SWORKC2) A"LINE "£6818330)3 
BLANKCWORKE21)3 
TWXOUTCLL*WORK(O]»24eCRLF)3 

WORKCO) 8% "TIME [S"3 BLANKCWORK(0))4 
TIMEOFDAYCWORKCU J >TIMECONVCTIME CL) se TRUE) 23 
THXOUTCLL*WORK(O]216eCRLF )3 

WORKLO) 38 "CRE USENS BLANK CWORK(QJ)23 
TIMEUSEDCWORKC LJ» TIMECONVCPTIMESFALSE) 23 
TWXOUTCLL*WORK(0OJ] 2332193 

WORKOCO) $8 "EXECUTE"S BLANKCWORK[O))3 
TIMEVSEDCWORKC LJ» TIMECONVCETIME* FALSE) )3 
TWXOUTCLL*WORK(COJ]s33214)3 

WORKCOJ &* "10 TIME" BLANKCWORK(O))3 
TIMEUSEDCWORK CL] > TIMECONVCIOTOTSFALSE) 23 
TWXOUTCLL#WORKCO Js 330195 

WORKECO] &8 DATE; 

TWXOUTCLLZWORK(O)2822)3 

IAM 328 O3 

OF THYME; 


TCP R CECE P ESSEC CCE C SELLER OE PEEP eC e CT CeCe ee SP PCS CC SPCC e CC er er sc 


PROCEDURE CARRIAGECLCWPA)3 BOOLEAN LCWS ARRAY ALO)3 


SEES PE CE SESE CES SSS ESS SEE PES ECCS PSEC CCCSSC SCC SI CSE LE SSL ELST 


BEGIN 


REAL T3 


LABEL ERReEXITS 
CASE DOING OF 


BEGIN 


BEGIN % CASE 1 SYNTAX CHECK 


If DEVICE NE@ TELETYPE THEN GOERR("CC 


"95603 


TEMPtals WRITEASTERISK $= TRUES 


63.18 


62 18 


64 1S 


7 LONG» 


36006300 
36006400 
36006500 
36006600 
36006700 


+4 to 


101 LONG» 


37001000 
37001100 
37001200 
37001300 
37901400 
37801500 
37001550 


START OF SEGMENT 


37001600 
37001700 
37001710 
37901720 
37801800 
37001900 
37002000 
37002100 
37002200 
37002300 
37002400 
37902500 
37902600 
37002700 
37002800 
37002900 
37003000 
37003100 
37003200 
37903300 
37003400 


49 LONG 


38000000 
38900100 
38000200 
38000300 
38000400 


START OF SEGMENT 


38000500 
36000600 
38000700 
38000710 
38000720 
38000800 


T 
T 
T 
T 
T 
T 
T 
* 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
us 
T 
T 
T 
T 
T 
T 
T 
T 
a 


A+ set 


NEXT SEG 
0093 
0095 
0095 
0099 
0099 

NEXT SEG 


0064 
0064 
0064 
0064 
0064 
0061 
0064 
aeeeekn 
0000 
0002 
0004 
0009 
0010 
0032 
0044 
0017 
0018 
0021 
0023 
0025 
0027 
0030 
0034 
0034 
0036 
0038 
0039 
0044 
0042 
NEXT SEG 


0064 
0064 
0064 
0064 
QOO64 

HRA KEKE 
0000 
0000 
0000 
0000 
0000 
0004 


62 


8 


64 


8 


65 


Be oe E “¥ a 


Ir ACSREGS*BASEMACBASEJ) 2036815) GEQ 1 THEN 
BEGIN 
MATCHCACSREGSaSREG41),(6842) >" LONG ") Tee] ELSE 
MATCHCACSREG].CO8G2Je"SHORT ") T820 ELSE GO TO ERRS 
END 

ELSE 
BEGIN 
ACSREGJ#="CC i? 


ERR3 GOERRCACSREGJ28)3 


ENDS 
If (Tai AND CCGLONG) OR (TsQ AND NOT CCLONG) THEN 
BEGIN 
IAM#B03 GO TO EXIT 
ENDS 
ACBASE]teTs TEMP3&13 
LLDISKREAD $3 USERLOCS % USERS/CANDE RECORD LOCATION 
WANTt=VDISKREADS 
DOING t# 43 
ENDS ¥ CASE 0 


PrP rrrrrrerrrrrrerrrrrreerre rere rere eee ee ee ie eee ee ee ee ee 


BEGIN % CASE 1 * USERS/CANDE RECORD IN CORE 
CcLONGBIT %# REAL CACBASEIJ&1)3 
WORKCiLIJ:aOPTIONBITSs % UPDATE RECORD 
DISKWRITECUSERLOC)# % REPLACE USERS/CANDE RECORD 
ECCOMCLL»s USERCODE sALBASEI)3 
TAM ta Q3 
END CASE 43 

ENO all CASES 


EXIT! 
END PROCEBURE CARRIAGE CONTROLS 


TEC CCI PCTS CLOT LTP TCT C SCOP CCS CeCe ciel Icr acer ici rer er! 
PROCEDURE CHNGNAMECLCWeA)$ BOOLEAN LCWs ARRAY ACQ]3 


yO CCE PCS C CEOS CPPS CECE ECCLES SESE CES PES ESE E CERES EROS E. 22] 
BEGIN 
STREAM PROCEDURE NEWNAMECA)} 


BEGIN 
DI&eAs OSIPF2OLIT"ENTER YOUR NEW NAME®@"3 


END STREAMS 


STREAM PROCEDURE SAVENAME(FesT»sEADRS)# VaLUE EADRS3 
BEGIN 
LOCAL SysDVs LABEL L? 
S{seFs OLiaTs OSselL1T"0"s OStslSLIT™ "3 OL wOL 9153 
L$ If SC" " THEN BEGIN SlsaSI413 GO L ENDS 
15SCIF SC#,EFTARROW THEN 
BEGIN 


389000900 T O0O11 
38001000 T OOQO14 
38901100 T O0O14 
38001200 T 0019 
38001300 T 0026 
38001400 T 0026 
38001500 T 9026 
38001600 T 0028 
38001700 T 0029 
38001800 7 0036 
38001900 T 0036 
38002000 T 0040 
38002100 T O044 
38902200 T 0040 
38002300 T O02 
38802400 T OQ44 
38002500 T 0045 
38002600 T 0046 
38002700 T dQ0a7 
38002800 T 0047 
389002900 T 0047 
38003000 T 0047 
38003100 T O05; 
38003200 T 0052 
38003300 T 0056 
38003400 T Q057 
38003500 T 0058 
38003600 T 0059 
START OF SEGMENT svxetawewe 
66 IS 3 LONGs NEXT SEG 
38903700 T 0059 
38003800 tT 0060 
65 1S 63 LONGs NEXT SEG 
39000000 T 0064 
39900100 Tf 0064 
399000200 T 0061 
39000300 T 0064 
39000400 T 0061 
START OF SEGMENT wenrtawnwn 
39000500 T 0000 
39000600 T Q00Q 
39600700 T 90003 
39000800 T 0003 
39000900 T 9003 
399001900 T 0004 
39001190 T 0004 
39901200 T 0007 
39001300 Tt 0009 
39001310 T 0010 


66 
65 


67 


EcBaties ss Seiibedind sy iS 


SviaSIs SIS=LOC SVs SItaS1453 39001320 
DVtsDIs DISLOC EADRSS OItaDI45; 39001330 

IF 3SC#0C THEN JUMP OUTS 39001340 

SIssSV3 DLISOVE 39801350 

ENDS 39001360 
DSIRCHR)5 39001370 

END STREAMS | 39001400 
LABEL EXITs 39001500 
IF SCHEDULINE THEN GOERRC"CHANGE '»40)3 39001600 

CASE DOING OF 39004700 

BEGIN 39001800 
BEGIN % CASE 0, 39004900 
NEWNAME (WORK) 3 39002000 
TWXOUTCLLZWORKEOJs20»NOCRLF DS 39002100 
DOINGH=13 WAITFORS#V INPUTS 39002200 

END CASE 03 39002300 
BEGIN % CASE ly 39002400 
SAVENAME (WORK 1)» ACBASE) »WORKENDADRS)3 39002500 

DOINGS mTEMPIa23 39802600 
LLUDISKREAD$ sUSERLOC 39002700 
WANTESVDISKREADS 39902800 

END CASE iJ 39602900 
BEGIN % CASE 2, 39003000 
MOVEC2sWORDS»AL BASE) #WORK[4))3 39003100 
DISKWRITE(USERLOC)3 390043200 

IAM $8 O3 39803300 

END CASE 23 39903400 


ENO ALL CASES} 39003500 
START OF SEGMENT 


AA HAHAH st st 


ee ee 
oc 
© 
-_ 
w 


0015 
0015 
0023 
0023 
0023 
0023 
0024 
0026 
0028 
0028 
0028 
0030 
0032 
0033 
0034 
0034 
0034 
0037 
0040 
0044 
0041 


weeethenee 


68 1S 4 LONGs NEXT SEG 


EXITEEND CHANGE NAMES 39003600 


T 9042 


67 1S 45 LONGs NEXT SEG 


OPUS ES POCLSCCCCC CSE CECE S ESL CCL OSE SOCCISCCCSCCLOLCSOCSLCES ESOS ESRC CECE SCS S| 40000000 

PROCEDURE MONITORR(LCW2A)S BOOLEAN LOWS ARRAY ALO)3 40000100 

Oe eR EPE LECCE ST CEES ECCLES CESSES SSS ECS ESOS CSC CSCC SL OSE SOLELCSECeS ET Sy 40000200 

Baa dat BEGIN . 49000300 
REAL PC,WORD3 40000400 

START OF SEGMENT 

BicGraehy os we ilies te . . bABEL EXIT? . 40000500 
TEMP f= 33 40000600 

CASE DOING OF 40000700 

Gefen ts = BEGIN. 40000800 
PET PCPPPRETEPEEEL URE LEREREC TEPER ETELEPELETeTEeEPEReTErErrerrrreren 40000900 

BEGIN ® CASE 0 = SYNTAX CHECK 40001000 

Bae tiag. 5 Pc t* AC SREGSSBASE*ACBASEJ 1,048815]3 % PARAMETER COUNT 49003100 
WORD tm ACSREGHwSREG+1)]3 &% FIRST PARAMETER 40001200 

Ip PC NEQ 1 THEN % WRONG NUMBER Of¢ PARAMETERS 40901300 

eset ee nk, ; BEGIN 49001400 
IF PCa0d THEN GOERRCMFILENAM",s6)3 &% FILE NAME REQUIRED 40001500 


0061 
0064 
0064 
0064 
0064 
eewewatien 
0000 
0000 
0000 
0004 
0001 


0001 
0004 


0004 
0006 
0007 
0007 


Se ee ee ee Le ee, 


— 
> 


c. sv 


fAcore P 


GOERR(WORD?8)) & ILLEGAL PARAMETER 409001600 T 0015 

ENO? 40001700 7 0019 

Ip WORDe(3937280 THEN GOERRCWORD28)4 &% NOT A FILE NAME 40001800 tT 0019 

IF WORDe(3!3) GTR 6&6 THEN GOERRCWORDs42)3 % 6 CHARACTERS MAX 40001900 T 0025 

If FINDAWORDCWORDsRESWROTABLECLJ»*NUMOPRESWROS) NEQ@ O THEN 40002000 T 0032 
GOERRCWORD?29)3 40002100 T 0034 
ArBASE) sa WORD t# WORD, CO842)3 &% STORE FILE NAME 40@02200 T 0039 
ACBASE+1) %= ACBASE+2] ta 03 &% RESET EVENTS COUNTER AND ERRe LOCe 40002300 fT 9041 
FINDCLLSIAME 3304187) 20sWORODsUSERCQODEs USERCODE )3 40902400 FT Q045 
FINOCLLSIAME 3324137) 20sWORD.(68 36) sUSERCODE sUSERCQODE 23 40002500 T 0048 
DOING $m 124 WAITFOR te JAMS 40002600 fT 0053 
EnDs &% CASE 0 40002700 T 0054 
mere POPE OREO HHH OHREH ERE HOMO EH ERED EHH EROS HERO PEC HORE RR ER EHO HHH ED 40002800 T 0055 
BEGIN ¥ CASE 1 = RESULTS OF DIRECTORY SEARCH 40902900 T 0055 

If EVENTSC1) GEQ QO THEN &% FILE WAS IN DIRECTORY 40803000 fT 0055 

IF ACBASE+1]50 THEN % THIS IS FIRST FILE FOUND 40003100 T 9056 

If ACBASE+21]90 THEN ACBASE+L J]# =A BASE] & SOURCE VERSION 40003200 T 00358 
ELSE AGBASE+1)] $sACBASE},06936)3 &% OBYECT VERSION 40003300 T 90061 

Ir ALBASE*2)'5ACBASE*+2)]41 LSS 2 THEN WAITFORS&1 AM ELSE 40803400 T 0065 

If ACBASE*1] NEQ O THEN GOERRCACBASE+1]-3) ELSE 40003500 T Q070 
BEGIN 40003600 tT 0078 
MAKEFILECLUSIAMC3S38ALs7] ol sACBASE Js USERCODE 282200) 49003700 rt 0078 
DOING# #23 WAITFORSsTAM3 40003800 T 0082 

ENDS 40003900 T 0063 

EnDs & CASE 1 40004000 T 0083 
 POVEreTTEEEPEPEREPULETEPTTETEreree rere re rer eee reerrerr eer errr ere ere 4Q904100 TF 0084 
BEGIN &% CASE 2 = ADJUST NEW FILE HEADER 40004200 fT 0084 

IF EVENTS(C1) = O THEN GOERRC"NO DISK"246)3 40004300 T 0084 
LLOISKREADSMACBASE*1 J ISEVENTS(2)% & HEADER ADDRESS 40004400 T 0092 
DOING %* 33 WANT &* VOISKREAD; 49004500 T 0095 
ENDs & CASE 2 40004600 T 0096 
 POVeCrrerrePEPEEETERESereTErrr ree ere reererererrereere er eere rere yy) 40004700 T 0097 
BEGIN ¥% CASE 3 » HEADER IN CORE 40004800 T 90097 
WORK(O]%210 & 306390936842) & 300645233915) & 19C1934914)3 46004900 T 0097 
WORKC3],.02919) &3 73 & SAVE FACTOR 40005000 T 0104 
WORK(L7)] t= 714 & EOF POINTER 40005100 T 0103 
WORKC92904335) %* 203 % NUMBER OF ROWS 40005200 T 0305 
OLSKWRITECACBASE+1))3 % REPLACE HEADER 40005300 y 0497 
LLODISKREADtSUSERLOCS & USERS/CANDE RECORD ADDRESS 40005400 y O211 
DOING t!* 43 WANT & VOISKREAD; 40005500 T 0113 
EnOs & CASE 3 40005600 T O114 
 Porerrrrrrereeeeerrrerererererrrrrrrerrrrrrrerr rrr rrrrererrrrerrer ers 40005700 T 0115 
BeGIN ® CASE 4 # USERS/CANDE RECORD IN CORE $0005800 T 01315 
MONITORBIT ## TRUES 40005900 Tf O115 
WORKEL 12) $= ALCBASEJ; & MONTTOR FILE NAME 40006100 T 0117 
DISKWRITECUSERLOC)3 % REPLACE RECORD 40006200 T 0119 
IAM ta Q3 40006300 T O22 
GnOs & CASE 4 40006400 T 0123 
END ALL CASES 40006500 T 0123 


START OF SEGMENT «weeewntes 70 
70 18 6 LONGs NEXT SEG 69 
EXITs 40006600 T O124 
END PROCEDURE MONITORRS 49006700 T 0125 
69 1S 128 LONG» NEXT SEG 8 


6 r ‘ 


rE RPE EESPSESACSCLASC CC OSC SSSECS ECCS LALO LECOLETESOCCOCSOCCCCOCSCSCACEOCSSOSOLCLOL LSE S Ss | 


PROCEQURE SETITCLCW2A)3 BOOLEAN LCWS ARRAY ALO]3 


CRC RRC PESSCSEECLOESE SELES ERE ESE SPER CT ERS CPCS C CSE CCPC CCE E CCE ERS SE 2 


BEGIN 


REAL N@,PTR»WORDsMAXPTRe TYPE se SETBI Ts Xs 


LABEL CASE2sEXITS 
DEFINE ERRCERRIsERR2sERRS)® 


BEGIN 
ERRSw 


ta ERR1 & ERR2C19438S)]3 MSGPTR t= ERR33 


IAM 38 VERRQRs GO TO EXIT} 


END#; 


LPOPeET POP REPELeEeeE PEPER Per rererrrerrre rrr errr rrr ere re ee eee ee ee a 


CASE DOING OF 


BEGIN 


LPEUPREPEREEEEEE EEE 


OHH EF OR HOHRHH EHH OHHH HRB OOOO AOH EPH aeseeRees 


BEGIN % CASE O = SYNTAX ANALYSIS 
PrRisWORKADRS# MAXPTRESWORKENDADRSS NC##03 & SETUP 
WHILE CTYPES®SCANC(PTReWORD? "9" »MAXPTR»eX)) NE@ 5 DO 


IF 
IF 


BEGIN 

IF TYPE NE@ 1 THEN % NOT ALPHA STRING 
BEGIN 
ERRCWORD*WORD .0135148)4 % INVALID IF NOT SPQ ANO NUMBER 
ENDs 

NC t= NC * 13 WORD,C1851 tH O03 

MATCHCWORD? "SET ") SETBIT ts 1 


ELSE MATCHCWORDs"RESET ") SETBIT 8* 0 
ELSE MATCHCWORDs"CONCISE™) CONCISEBIT t= SETBIT 
ELSE MATCHCWORDs "HELPFUL" ) HELPFULBIT ta SETBIT 
ELSE MATCHCWORD"QUICKLO™) QUICKLOGBIT$* SETBIT 
ELSE MATCHCWORDe "QUICKBY"™) QUICKBYESIT&= SETBIT 
ELSE MATCHCWORDe"NOSTOP *) 
BEGIN NOSTOPS#BOOLEANCSETBIT)Z ITAM#203 GO EXITS END 
ELSE MATCHCWORDs"ALLOWMS") ALLOWMSGBITSSSETBIT 
ELSE MATCHCWORDse"FREEFIL") UNLOCKTOGGLES2SETBIT 
b 4 


ELSE MATCHCWORDe"MONITOR™) GO TO CASE2 & SET/RESET MONITOR FILE 


ELSE ERRCWORD?798)3 

ENO WHILE STATEMENT} 

NC LSS 2 THEN ERRC*INCMPLT%2728)3 
SCHEOULINE THEN 

BEGIN 

IAM#§#O3 WRITEASTERISKS3TRUES 

END ELSE 


BEGIN 
LLOISKREAD $= YSERLOCS & YSERS/CANDE RECORD ADURESS 
WANT #% VDISKREAD; 
DOING t= 43 
END3 
END CASE 03 
POPC PPER PEPE Pe Re rerer rere rere rerererrerer rrr rrr rere re ee eee ee ee ee 
BEGIN % CASE 1 = USERS/CANDE RECORD IN CORE 
WORKE11] 3% OFTIONBSI TSS & PUT NEW SETTINGS IN RECORD 
DISKWRITECUSERLOC)2 &% REPLACE USERS/CANDE RECORD 
IAM $= O3 
WRITEASTERISK t= TRUE} 


41600000 
41900100 
41000200 
41000300 
41000400 


START OF SEGMENT 


41000500 
41000700 
41000800 
41000900 
41001000 
41001400 
41004700 
41004900 
41005000 
410051400 
41005200 
414905300 
41005400 
41005500 
41005600 
41005610 
41005700 
41005710 
41005730 
41005800 
41905900 
41006000 
41006100 
41006200 
41006300 
44906400 
410064140 
41006500 
41006600 
41006700 
41006800 
410906900 
41007100 
41007200 
41007300 
41007310 
41007320 
414007330 
41007340 
41007350 
41007400 
41907500 
41007600 
41007650 
41007700 
41007800 
41007900 
41008000 
41008100 
41908200 
41008300 


AHH AHHH HHA ot tt tat a tt st tt st tt a tt a at tt ta to ts 


0061 
0064 
0064 
0061 
0061 


RKCRGET ED 


0000 
0000 
0000 
0000 
0000 
0000 
0000 
Q000 
0000 
0000 
0000 
0000 
0003 
0006 
0006 
0007 
0007 
0012 
0012 
0015 
0017 
0022 
0028 
0034 
0040 
0046 
004? 
0056 
0059 
0066 
0066 
0066 
0070 
oor? 
0077 
0084 
0084 
0085 
0088 
0088 
0088 
0990 
0094 
QOO94 
0094 
0092 
0092 
0092 
0093 
0097 
0098 


71 


ergy 


i 


END CASE 13 41008400 T 0100 

\ PPT Pe eee eee rerererrrrrerrrerererrrerrr rr reer rrr Se ree © ee eee ee ee ee 41008500 T 0100 
BEGIN % CASE 2 * MONITOR SET/RESET REQUEST 41008600 T 0100 
CASE2% IF NOT BOOLEANCSETBIT) THEN & RESET MONITOR 41008700 TF 0100 
BEGIN 41008800 T 01014 
MONITORBIT ts FALSES 41008900 T 0102 

IAM %e 03 41009000 fF 0104 
WRITEASTERISK §* TRUES 41009100 T 0105 

GO TO EXITS 41009200 T 0107 

ENp3 41009300 7 Q107 
LLDISKREAD #* USERLOCs % USERS/CANDE RECORD ADORESS 41009400 Tt 0107 
WANT #® VDISKREADS 41009500 T QO409 
DOING #* 33 419009600 T 0110 
END CASE 23 41009700 T 0410 
LTOrPeeePRRe eee eee eeerererr rer ere rere ere eee ee eee ee ee ee ee 41009800 T Olli 
BEGIN % CASE 3 = USERS/CANDE RECORD IN CORE 41009900 Tf O1114 

Tr WORKOL2)20 THEN ERRCMONSFIL"s792)3 &% NO FILE NAME LISTED 41010000 fF O114 
ArBASE] t# WORK¢12]3 % SAVE MONITOR FILE NAME 41010100 fT 0118 
FINDCLL&IAMEC 3394187 JoOo AL BASE JsUSERCODE*USERCODE)3 % SEARCH 41010200 T 0119 
TEMP :8 23 DOING $8 43 WAITFOR #5 IAMS 410130300 T 0123 
EnD CASE 33 41010400 T 0425 
Meee OOOO eee HORDE EHEC EO OPE OH ED DORE RE OHS HOMER ROE NO ORR OOEre 41010500 T 0126 
BEGIN % CASE 4 = RESULTS QF DIRECTORY SEARCH 41010600 T Q0126 

IF EVENTSC4)] LEQ O THEN ERRCALBASEJ+622)3 % NOT ON OISK 41010700 T 0126 
MONITORBIT %* TRUES 41010800 fT 0132 
LITOUTCACBASEJsNOCRLF IS LITOUTC™ MONITRSCRLF DS 41010900 T Q134 
IAM Ss Q3 41011000 T 0136 
END CASE 43 410113900 T 0437 
Ler errr ePEPPEREREPPEree reer rerererrre reer rr re rrrr se rrr ee eee ee ee ee 41011200 T 0138 
END aLL CASES; 41023300 T 0138 


START OF SEGMENT eeatetunnws 72 
72 18 6 LONG» NEXT SEG 74 
ap 41023400 T 0138 
END PROCEDURE SETITS 419023500 T 0139 
74 IS 145 LONGs, NEXT SEG 8 


OSPR REPEC SECCECL CSCS COLES OSS ICCC CSS CS LETS SECSLLSCCCTCCOSLCACCLALILIELL ALLL TT 42000000 T 00614 

PROCEDURE SSFILECLCWsA)} BOOLEAN LOWS ARRAY ALO]; 42000100 T Q064 

ORCC CSP ECO CCC ECCS ECE R EERE TE CSP AS ECC CS COELLCLIOCLOSSOCCSSSSCASSSEC ECT TT 42000200 fT 00614 

BEGIN ® PRINT CONTENTS OF SPECIFIED FILE ON TERMINALS 42000300 T 90064 

REAL Ta_LINsPCsREKSsLINMAXsWORDs MAXSREG3 42000400 T 0064 
START OF SEGMENT sea th eaten 73 

DEFINE SPOCNTRL = A CBASE%2) #3 40523 42000450 c 0000 

LABEL ExITi 42000500 Tt 0000 

CASE DOING OF , 42000600 Tt 0000 

BEGIN 42000700 T 0000 

BEGIN % CASE 0 * SYNTAX ANALYSIS 42000800 r 00900 

IF LL NEQ QO THEN GOERRC(“SSFILE %5143)3 42000900 ~ 0000 

SREG s= BASE = ACBASE)3 42001000 T 0008 

Po t= BCSREG].C18815]3 MAXSREG $= SREG + PC3 42001100 T 0009 

ACBASE+3) §2 9993 % FLAG FOR LINE NUMBER INPUT 42001200 T 0012 

FOR SREG 3% SREG+1 STEP 1 UNTIL MAXSREG DO 42001300 r 0014 

BEGIN &® PICK UP THE PARAMETERS 42901400 7 0018 

WORDS MACSREG]3 42001500 7 0018 


» * id e a @. . t « * a? a’ 


e Bur 


L 


i 


¢ « ‘ 2 eS 


IF WORD,.0C185)80 THEN % LINE NUMBER GIVEN 
BEGIN 
IF WORD GTR MAXLINES THEN GOERRC"NOT ON %58)3 


IF LINECWORDsUCLOCI80 THEN GOERRC™NOT ON "28)3 
ACBASE+3) &8 WORD; 


ENO 

ELSE IF WORD.C383) GTR oO THEN &% FILE NAME 
BEGIN 
IF CREKS#SREKS+1) GTR 2 THEN GOERR(WORDs8)3 
ACBASE*REKS] t= WORDe (6142) 


GND 
ELSE IF WORD EQL "/" THEN %0501° 
IF SREG + 2 LEQ MAXSREG THEN FIXUSERC Is As EXIT*FALSE) ELSE 
SE %0501° 
GOERR (WORDs8)} 20501" 


END FOR STATEMENTS 
Tr REKS NE@ 2 THEN GOERRC FIL NAM%98)3 
FINDCLL&IAMC3324197 J eOe AC BASES) Jo ACBASE*2)s"SITE "i 
TEMP t= 43 DOING &*® 13 WAITFOR t% TAM} 
END CASE 03 


Beem aM OO eF Pan OOOOH PHD RDO H HEHEHE DEH HOHH ORO HELPP PCE R HORROR OOOH EES 


BEGIN % CASE 1 * RESULTS OF OIRECTORY SEARCH 
IF EVENTS£C1) L355 0 THEN %& NOT ON DISK 
BEGIN 
WORKCOJSSACBASE +193 WORKCLIISACBASE+2]3 
WORKC2)32" NOT ON"3 WORK(3)8a"O1SK "3 
FOR It#Osle2s3 DO BLANKCWORKCI))3 
pr a 
IAM ts 03 
GO EXITS 
END IF NO FILES 
LLOTSKREADISEVENTS(C2),018815]3 % HEADER ADDRESS 
WANT #® VOISKREADS 
DOING ts 23 
END CASE 13 


: POC PCR PPERPPeeReeee eer eeePereeeerrerrrrrrrerrrrrrrererirrrr rae eh eee 


BEGIN % CASE 2 = HEADER IN CORE 

If (SPOCNTRL#SWORKE7)41) GTR CLtawORKC8)xX3) THEN SPOCNTRL tals 

Ip CACBASEJ§8WORK(10])220 OR SPOCNTRL&O THEN % NO RECORDS 
BEGIN I1AM3%03 GO EXIT3 ENO; 

ACBASE*1] 3404 & INITIALIZE SEGMENT POINTER 

LLDISKREAD $8 ACLBASE)3 % ADDRESS OF FIRST SEGMENT 

WANT #8 VOITSKREAD3 

DOING $2 33 

END CASE 23 


Reeder era Mae H HHH EH OPPO ORTH HH ERE PH RHHEDEHOOHEH OC EERE OOOO ROR NOR 


BEGIN .& CASE 3 * READ DISKFILE 
ACBASE+1) ts ACBASE+1] # 44 % INCREMENT SEGMENT COUNTER 
ReKSteIF (SPOCNTRLEsSPOCNTRL*3) GEQ 0 THEN 3 ELSE 3¢SPOCNTRLS 


LIN tm.o12 LINMAX #3 MAXLINES 


If ACBASES3) LSS 999 THEN LINS@LINMAX##ALBASE*+3]3 % NUMBER GIVEN 
FOR LINtaLIN STEP 1 UNTIL LINMAX DO IF LINECLINeUCLOC)] NE@ O THEN 
FOR I!a1 STEP 14 UNTIL REKS pO 
IF Tai THEN TWXOUTCLIN*@WORKCOOJ 27201) ELSE 
If I82 THEN TWXOQUTCLIN*#WORK(10]27221) ELSE 
If I@3 THEN TWXOUTCLIN*#WORK( 20) 27221)3 
IF SPOCNTRL LEQ O THEN &% END OF FILE OR DISK ROW 


42001600 
42001700 
42001800 
42001900 
42002000 
42002100 
42@02200 
42902300 
42002400 
42002500 
42002600 
42002700 
42002710 
42002780 
42002785 
42002800 
42002900 
42003000 
42003100 
42003200 
42003300 
42003400 
42003500 
42003600 
42003700 
42003800 
42003900 
42004000 
42004100 
42004200 
42004300 
42004400 
42004500 
42004600 
42004700 
42004800 
42004900 
42005000 
42005100 
42005200 
42005300 
42005400 
42905500 
42005600 
42005700 
42005800 
42005900 
42006000 
42006100 
42006200 
42006300 
42006400 
42006500 
42006600 
42006700 
42006800 
42006900 


a ae ae tt tte tt tO OO VHA a AA 


0119 
0120 
0121 
0122 
0122 
0122 
0122 
0125 
0132 
0133 
0437 
0140 
0142 
0145 
0146 
0156 


& 


eo deta PERO 


teere Bu: 


BEGIN 30523 42007000 

IF TEMP NEQ@ 4 THEN % RETURN TO “HITHERE" 40523" 42007010 
BEGIN 80523" 42007020 
TAMHSVHELLOS DOINGS&73 30523" 42007030 

END 40523" 42007040 

ELSE 40523" 42007050 
TAM$8O3 40523 42007060 

GO TO EXITS 30523" 42007070 
ENDS 305238 42007080 
LLDISKREAD t* ALBASE] + ACBASE+1)3 % NEXT SEGMENT ADDRESS 42907100 
WANT t% VOISKREADS 42007200 
END CASE 33 . 42007 300 
END ALL CASES} 42007400 


START OF SEGMENT 


0458 
0158 
0159 
0159 
0164 
0164 
0164 
0162 
0163 
0163 
0165 
0166 
0167 


eee eetewan 


AA AHO OEANMA0N HOA FD 


74 1S 5 LONGe NEXT SEG 


EXIT! 42007500 
END PROCEOURE SSFILES 42007600 


T 0167 
T 0168 


73, 1S 174 LONGs NEXT SEG 


yp OCC C PE SECCSCCOCLOO EES SEER SESE EES ECO OE LISLE CCS ESOS ESOSCCCOCSCCSSISL SS 43000000 


PROCEDURE EQUATECLCWsA)s3 BOOLEAN LCWS ARRAY ALOJS 43000100 
OSU C CC OPESE TOES EC SASSER ES ES ESE ESSA CECE SSCS CCRC SOCLCIOSCE SCC eas SS 43000200 
BEGIN 43900300 
REAL TsKsWORDSUNITs TYPE sNAMa NAM] sNAM22 VERBV oe MAXSREGSE YUVAL SZ 439000400 
START OF SEGMENT 

BOOLEAN DSKsBKUPsEQL TOGsF IL TOGsLIBTOGsCHECKTYPEsQUUT&Q12Q2s 43000500 
BOOLEAN FORMTOGs NOL ABEL» FASTOGs SLOWTOGs» EYTOGS 43000510 
LABEL ERRe CHECKs EXIT? 43000600 
clea ENTRY * ACBASE +1] #2 THISESP = ACBASE+2) #3 43000700 

tm Pe eve ® oa eteseseetete ofPeenae eeeCepeeeeeteanoneeateaneanan 43000800 

Sree ee ROCEGURE FILELOCAORS,ARAYsMAXI3 VALUE ADRSsMAXS 43000900 
De ae i nee 43001000 
BEGIN 43001100 
STtaaDRSs DISBARAY) DI seDI e413 43001200 
MAXCIF SCRALPHA THEN BEGIN DS#8CHRS TALLYSSTALLY*#13 END 43001300 
ELSE DStaLitT™ ")3 43001310 
AORS!EsTALLYS SI%2lLQC AORSS SI&BSI+73 DIS BARAYS DSt aCHR3 43001400 
ENO STREAM PROCEOURE FILEID3 43001500 
CASE DOING OF 43001600 
BEGIN : 43001700 
BEGIN % CASE 9 ,cevecncesevrcrear ened enn deere reenecerenenetnenerenterere 43001800 
LABEL WAIT; 83001810 
START OF SEGMENT 

IF NOT CONTINUVEBIT THEN % FIRST CALL ON THE ROUTINE 43001900 
BEGIN 43902000 
CONTINUEBIT %* TRUEZ 439002100 
FIRSTESPtaeTHISESPSSESP13 % SAVE FIRST ESP RECORD ADDRESS 43002200 
ENTRYtmO3 TEMP$B33 CLEARCLCOI229)3 LOLA] tean1 4"; 43002300 

SREG ts BASE * ALBASEJ}3 MAXSREG $e SREG + ACSREGI,.£C18315)3 43002400 

END % IF FIRST CALL 43002500 


s . : » 2 @e s * @ & 


0064 
0064 
0064 
0061 
0064 
aeekekkaewey 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0003 
0004 
0005 


ee ee ee ee 


9005 
0006 
0006 
0006 

HHREHE KES 
0000 
0004 
0004 
0003 
0006 
0033 
0016 


Wat Are te ae 


74 
73 


75 


76 


ELSE 
BEGIN 
BaSE t= BASE + 33 % SHIFT UP TO SAVE STACK VALVES 
SCANNERCWORKADRSs AL * J] sh CWsWORKENDADRS)3 
BASE t= CISSBASE) "33 % RETADVUST BASE FOR THIS PROCEDURE 
IF BOOLEANCACTI.€C1781)) THEN % ERROR DURING SCAN 


BEGIN 
WORB t# ALI4#2)% MSGPTR ts 653 GO TO ERR3 
ENDS 

Ip CTYPESeACIIe£383)) NEQ 1 THEN & NOT A VERB 
BEGIN 


IF TYPERO OR TYPES5 THEN GO WAITS % COMMENT OR NULL 
IF TYPE#4 THEN % SSMSG 
BEGIN 
BASEteIs SSMSG3 BASES al~33 LITOUTC*# "e1)3 GO WAITS 


END3 
WORDiaIF TYPEa2 THEN ACT#1) ELSE ACI#2]3 % NUMBER OR SPEC CHR 
MSGPTR %= 653 GO TO ERR 
ENO} % IF NOT A VERB 
If CVERBVEFACI4¢1)].£4038))SVEXECUTE THEN 
MATCHCVERBTABLECACI4¢1),069391]) CO842]>"COMPILE") ELSE 
BEGIN 
PARAM 8% ACT41).018315)]¢14 TEMP t8 13 
MOVECPARAM*1 sWOROSs ACI J*#ACBASEJ)3 & SHIFT LEFT FOR "EXECUTE" 
WANT tw VERBV! IAM tt OF CONTINUEBITS=FALSES 
DOING 38 Qj 
GO TO EXITS 


ENDS 
IF VERBV NEQ@ VEQUATE THEN 4 WRONG VERB 
BEGIN 
WORD tm VERBTABLECALCI¢11,0919))4 MSGPTR ts 653 
GO TO ERRS 
END3 
If ENTRYsO THEN % STARTING NEW SEGMENT 
BEGIN 
DISKWAITC Lele 30eTHISESP)3 
LC29]%KESP1s & ESTABLISH LINK TO NEXT SEGMENT 
DISMWAITCOsL se 30*THISESP)3 
CLEARCLOOI029)5 LC14)beaM 1a 
THISESPs= ESP1s % ADDRESS OF NEXT SEGMENT TO BE USED 
END 3% IF ENTRY # 0 
ELSE DISKWAIT(C Ls e30eTHISESP)3 % RECOVER PREVIOUS VALUES 
SREG #8 [413 MAXSREG tw SREG+ALSREG),(18815)3 
ENDS x IF NOT THE FIRST CALL 
Renee terete reser eeeneereneentavereng tesserae dYNTAX 
UNIT §8 123 MSGPTR tm 83 FILTOG# sTRUES EUVALS meds x 
FOR SREG t# SREG * | STEP 1 UNTIL MAXSREG 00 
BEGIN % EXAMINE INPUT STRING 
LABEL ALPHs 


CHECK ° 
INITIALIZE 


Romer cence eerveeescerecorenenrecseereeaNUMER! Conceceveeeseetenene 
WORD 33 ACSREG]3 
If QUOT THEN 4 QUOTED STRING 

BEGIN 

IF QUOT AND CEQLTOG OR LIBTOG) THEN &% ALLOW QUQTED STRINGS 


BEGIN 
FILETDOCSCANPTRUSREG@SBASEJsWORD#7)3 


43002600 
43002700 
43002800 
43902900 
43003000 
43003100 
43003200 
43003300 
43003400 
43003500 
43003600 
43003700 
43003800 
43003900 
43004000 
430041400 
43004200 
43004300 
43004400 
43004500 
43004510 
43004600 
43004700 
43004800 
43004900 
43905000 
43005100 
43005200 
43005300 
43005400 
43005500 
43005600 
43005700 
43005800 
43005900 
43006000 
43006100 
43006200 
43006300 
43006400 
43006500 
43006600 
43006700 
43006800 
43006900 
43007000 
43007100 
43007200 
43007210 


START OF SEGMENT 


43007300 
430074600 
43007410 
43007500 
43007600 
43007605 
43007610 


ttt 0 4 4 9 4 5 


at a a at tt st tt oe st se ss ss 


0016 
0016 
0017 
0018 
0020 
0022 
0023 
0024 
0029 
0029 
0031 
0034 
0034 
0034 
0035 
0041 
QQ44 
0045 
0048 
0048 
00514 
0056 
0058 
QO064 
0064 
0068 
0068 
0074 
QQ74 
0074 
0072 
0075 
0078 
Q078 
0079 
Q060 
0082 
00684 
0087 
0089 
Q094 
0094 
0094 
0098 
0098 
0098 
0102 
0106 
0406 
ceeeeekkaw 
9000 
0000 
0004 
0004 
0004 
0003 
0003 


77 


eer ee ny 


NSGPTR $= 663 
I ts SCANPTRESREG*SBASE)3 SREG $= SREG + 13 
WHILE SREG LSS MAXSREG AND ACSREG),(6%42) NEQ """ OO 
SREG %* SREG «+ 43 
K $s SCANPTRESREG*SBASE)3 
IF ALSREG},C6t42) NEQ@ """ QR 
CK,C 33445797 ,033845))x840K,(3083)"1,03083)) GTR 7 THEN 
GO TO ERR3 
GO TO ALPH3 
END ELSE GO TO ERRS 
END % IF QUOT | 


ete eet Bene Oe een ea eaFenea tegatana eeenseoaetetenaseeeareeeeeeeose 
ELSE IF WORDeC185)"%0 THEN % UNSIGNED NUMBER 
BEGIN 
IF EUTOG THEN 
BEGIN 
IF CEUVAL?@WORD) GTR 19 THEN GO TO ERR3 
END 


ELSE GO TO ERR3 
END % IF UNSIGNED NUMBER 
Kemer eee n renee rere eeeneneeteset ere eeees ALP HAs snerveternecnetaegee 
ELSE IF WORDeC383) GTR O THEN & ALPHA STRING 
BEGIN 
ALPH? WORB $s (NAMS SWORD) £6242]; 
IF FILTOG THEN % LOOKING FOR INTERNAL NAME 


BEGIN 
FILETOCSCANPTRISREG@SBASE J», CENTRY44) 26323 % INTERNAL NAME 
FILTOG #3 FALSE; 
END & IF FILTOG 
aay a aa THEN % "®" PRECEEDED THIS WORD 
G 


LCENTRY+))3 #WORDS 
NAM28=NAM3 LCENTRYIJ3%04 % ASSUME ENTRY JS FID 
EQLTOG %* NOTCCHECKTYPESSTRUE)S 
IF QUOT THEN 
BEGIN Q28*TRUES QUOTSSFALSES ENDS 
GND % IF EQLTOG 
ELSE IF LIGTOG THEN & "/" PRECEEDED THIS WORD 
BEGIN 
LCENTRYJSSLCENTRY41]5 NAMISSNAM23 Q13"Q23 
LCENTRY+iJ]¢ WORDS NAM24SNAM3 
LIBTOG #8 FALSE; 
IF QUOT THEN 
BEGIN Q285TRUES QUOTISFALSES ENDS 
END & IF LIBTOG 
ELSE IF CHECKTYPE THEN 4 CHECK HARDWARE TYPE 
BEGIN 
MATCHCWORDs"BACKUP %) BKUPISTRUE 
ELSE MATCHCWORDs "BACK ") 
BEGIN 
IF SREG LSS MAXSREG THEN 
IF ACSREG*1).03031%2 THEN 
MATCHCACSREG#1),0C 6842] 5"UP ") 
BEGIN 
BRKUPSSTRUES SREGI*SREG+13 
ENDS 
END % IF “BACK UP" 


oe © : » @8 @ ¢ 


43007615 


43007620 
43007625 


43007630 © 


439007635 
43007640 
43007645 
43007650 
43007655 
43007660 
43007662 
43007664 
43007666 
43007668 
43007670 
43007672 
43007674 
43007676 
43007678 
43007700 
43007800 
43007900 
43008000 
43008100 
43008200 
43008300 
43008400 
43008500 
43808600 
43008700 
43008800 
43008900 
43009000 
43009100 
43009110 
43009120 
43009200 
43009300 
43009400 
43909500 
43009600 
43009700 
43009710 
43009720 
43009800 
43009900 
43010000 
43010100 
43010200 
43010300 
43010800 
43010500 
43010600 
43010700 
43810800 
43010900 
439011000 
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Sree Sie ae 
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; Mo 


§ 


ELSE MATCHCWORDe"REMOTE ") UNITERI4 
ELSE MATCHCWORD,"OISK ") 
BEGIN 


UNIT#@IF BKUP THEN IF UNIT®O THEN 22 ELSE 15 ELSE 123 
BKUP t= FALSE3 
ENO 
ELSE MATCHCWORDs"SERIAL ") UNIT 3” 12 
ELSE MATCHCWORD, C6830] s"PRINT") UNIT 3 17 
ELSE MATCHCWORDs"SPECTAL") UNIT ta 3 
ELSE MATCHCWORDs*PUNCH ") UNIT %# 0 
ELSE MATCHC WORDs"CARD *) UNIT $s 0 
ELSE MATCHCWORDs"*RANDOM %) UNIT #8 10 
ELSE MATCHCWORD»*UPDATE ") UNIT $# 13 
ELSE MATCHCWORDs"PAPER ) UNIT #® 7 
ELSE MATCHCWORDs "SPO ") UNIT $8 if 
ELSE MATCHCWORDs "FAST see 
IF SLOWTOG THEN GO ERR ELSE FASTOGIFTRUE 
ELSE MATCHCWORDs "SLOW Wy 
IF FASTOG THEN GO ERR ELSE SLOWTOGI®S TRUE 
ELSE MATCHCWORDs "EY ") EUTOGHESTRUE 
ELSE MATCHCWORDs "TAPE ") 
BEGIN 
IF UNIT NEQ 7 THEN % PAPER TAPE 
UNIT#3IF BKUP THEN IF UNIT®O THEN 20 ELSE 6 ELSE 23 
BKUP ts FALSE3 
ENO & IF TAPE 
ELSE MATCHCWORDs"FORM ") FORMTOGSsTRUE 
ELSE MATCHCWORDs"*NOLABEL") NOLABELYSTRUE 
ELSE MATCHCWORDs "COPY w) 
BEGIN 
IF UNIT#O THEN UNITS 822 ELSE &% PUNCH TO PUD 
IF UNIT#2 THEN UNIT#"6 ELSE % TAPE TO PBT 
IF UNIT#17 OR UNITF12 THEN UNITI#154 % PRINT TO PBD 
IF SREG LSS MAXSREG THEN 
IF CWORD?SACSREG*11]),01ISJ*0 THEN 
IF WORD LEQ 256 THEN 
BEGIN 
LEENTRY#3)],015#68) $3 WORD@REALCWORD NEQ 023 
SREGIF5SREG+13 
END 
ELSE GO ERR3 
ENO 
ELSE GO ERR} 
ENO 3% IF. CHECKTYPE 
ELSE GO ERR} 
END % IF ALPHA STRING 
ELSE. 
Beesssttnesesenevenescscearevecseaeens ssSPECTAL CHReeenvcesesceges 
BEG 
IF WORD 2 "9" THEN EQLTQOG &t# NOT EUTOG 
ELSE IF WORD#"/" THEN LIBTOG ts TRUE 
ELSE IF WORODsS®"" THEN QUOTE#TRUE 
ELSE GQ ERR’ 
ENDS XIF SPECIAL CHARACTER 
ENO WHILE STATEMENT3 


40901" 
#0901° 


209041" 


sk aa le ibaa SW ae WAGE LEN SCANensecoceneratnnece 
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49011100 
43011200 
43011300 
43011400 
43041500 
43011600 
43011700 
43011800 
43011810 
43011900 
43912000 
43012100 
43012200 
43912300 
43912400 
43012410 
43012420 
43012430 
43012440 
43012450 
43012500 
43012600 
43912700 
43912800 
43012900 
43013000 
43013002 
43013004 
430143010 
43033015 
43013020 
43013025 
43013030 
43013035 
43013040 
43013045 
43013050 
43013055 
43013060 
43043065 


43013070. 


43043075 
43043100 
43013200 
43013300 
43043400 
43033500 
43013600 
43013700 
43013800 
43013900 
43013910 
43014000 
43014100 
43914200 


237 LONGe NEXT SEG 


a 
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0196 
0198 
0202 
0205 
0206 
0209 
0210 
0211 
0215 
0217 
Q217 
0219 
0219 
0222 
0222 
0225 
0225 
0225 
0225 
Q225 
0227 
0230 
0232 
0235 
0235 


43014300 FT 0107 


76 


ao 
AX 


ree 


score Bo cne ete Ses Be {4°27 


So 


a 


IF NOT CHECKTYPE THEN & INCOMPLETE REQUEST 


Begin ; 
WORDSs"INCMPLT"3 MSGPTR $# 663 GO ERR3 
RNOS 
IF NOLABEL THEN 
UNITiaIF UNIT#2 THEN 9 ELSE IF UNIT#7 THEN 8 ELSE UNITS 
UNIT@:@UNIT & REALCFORMTOG) (42% 47314)3 
LCENTRY+#37 -C42HOJESUNITS LOENTRY4¥1233 303 
IF OSKtscCUNIT#10 OR UNIT#12 OR UNIT#13) THEN % DISK 


BEGIN 
IF LCENTRYJ#0 THEN &% MUST HAVE BOTH NAMES FOR DISK 


BEGIN 
LCENTRYIJS@L CENTRY*1]3 NAMI S@NAM23 O125023 
LCENTRYtLISANAM2taUSERCODE; 


END3 
Ip NOT Q@1 THEN &% NOT QUOTED STRING 
BEGIN 
IF CWORDSSLCENTRYI),C4236) NEQ " * THEN 
IF WORDs(6%6) NE@ O THEN 
BEGIN 
MSGPTR t# 423 GO TO ERR; 
END; 
IF FINDAWORDCNAMIsRESWROTABLEC) J] *NUMOFRESWRDS) NE@ QO THEN 
BEGIN MSGPTR s# 293 GO TO ERRS ENDS 
END: 
IF EVUVAL GEQ@ O THEN LCENTRY*1I2)eCIBISIssEUVAL+1 ELSE 
IF CFASTOG OR SLOWTOG) THEN 
LEENTRY*#12)e01682)] §$% 1 + REALCSLOWTOG)3 
ENOS & IF DISK 
DISKWAITCOs,s30eTHISESP)3 % WRITE OUT THIS SEGMENT 
IF ENTRYs® THEN % STARTING NEW SEGMENT 


BEGIN 
ENTERESPCLLsTHISESPsAL¥))4 &% ENTER SEGMENT ADDRESS IN TABLE 
IF BOOLEANCESPFLAG) THEN % NO ROOM IN ESPTABLE FOR THIS ENTRY 
BEGIN 
WORDSs"NO ROOM"S MSGPTR 38 643 GO ERR} 
END3 
THISESP 16 ESPi? ESP1 ts GETESPDISKS EQUATED t* TRUES 
ENOS &® IF STARTING NEQ@ SEGMENT 
ENTRy t@# IF ENTRY*®O THEN 14 ELSE OJ & 2 EQUATIONS PER SEGMENT 
IF OSK THEN MATCHCNAM2 COS42)¢USERCODE) ELSE % QUTSIOE FILE 


BEGIN 
FINDCLLG@IAMC SSP GLE I SOeNAML*NAM2ZeUSERCODE 23 
ACBASE138NAM14 

DOING $* 33 WAITFOR ta JAMA GO TO EXITS 
END} 


GO TQ CHECKS 
END? % CASE 0 


WAITS 


TUCUUERUR EERE RURC URE OU ECU EE COREE eee ee eee ere revere rerererrrrerery 
BEGIN % CASE 4 ™ RESULTS OF DIRECTORY SEARCH 
IF EvENTSC1) LSS 0 THEN &% FILE NOT IN DIRECTORY 


BEGIN 
WORDISACBASEJ4 MSGPTR ta 673 GO TO ERR} 
END} 


CHECKS 


76 1S 


43014400 
43014500 
43014600 
43014700 
43014710 
43014720 
43014730 
43014800 
43014900 
43015000 
43015100 
43015200 
43015300 
43015400 
43045500 
43015510 
43015520 
43015600 
43015700 
43015800 
43015900 
43016000 
43016200 
43016300 
43016310 
43016320 
43016330 
43016340 
43916400 
43016500 
43016000 
43016700 
43016800 
43016900 
43017000 
43017100 
43017200 
43017300 
43017400 
43017500 
43017600 
43017700 
43017800 
43017900 
43018000 
43018100 
43018200 
43018500 
43018600 
210 ONG 
43018700 
43018800 
43018900 
43019000 
43019100 
49019200 
43049250 


a a a a tt ot tt ta tt ta te to to tt a ss 


0107 
0108 
0108 
0112 
0112 
0113 
0118 
0120 
0126 
0129 
0130 
01314 
0132 
0137 
0140 
0140 
O14) 
O14, 
01446 
0146 
0146 
0450 
0150 
0352 
0136 
0156 
01614 
0163 
0168 
0168 
0171 
0172 
0173 
0175 
0176 
0177 
O18) 
O184 
0187 
0167 
0191 
01495 
0198 
0201 
0202 
0206 
0206 
Q207 
0209 
NEXT SEG 
0008 
0008 
0008 
0009 
0010 
0012 
0012 


75 


Set @Oeeetkteeeeeoeoee8e8ee8eee0e0 ff 


a, PORE EHH EERE EHEHRH ER 


¢ a . e em 4 


DOING$#03 WAI TFORSeSVINPUTS 
IF ScHEDULINE THEN REQUESTIP(LL) ELSE 
BEGIN 
T2803 KteREALCTHINGSLINK)3 
WHILE I LSS REALCTHINGSTODO) 00 
BEGIN 
lin let13 
IF TOBEDONELKe161,.C18t724VINPUT THEN 
BEGIN 
TOBEDONELKe16),CiSt7) 2 aVEQUATES 
IAM $= WANT %= WAITFOR 8 03 
GO a EXIT3 


EN 
KteTOBEDONELK»034031635 
ENDS 
END3 
GO To EXITS 
ENDS % CASE 1 
END ALL CASES5 


ERR 


ERRSw &* WORDS 

IF EQUATED THEN ENTERESPCWLLs "OeAC*))3 & GIVE BACK ESP OISK 
TAM $8 VERRORS 

EQUATED t= FALSEs CONTINUEBIT 88 FALSE} 


EXIT3 


END PROCEDURE EQUATES 


p CCE P EPEC ES ES CCE S EELS ESSE PCCP PSE TCSP PSC CSCC PSCC CASE CSCC LCC LAL TL Te 


PROCEDURE STATUSCHECK(LCWsA)3 BOOLEAN LOWS ARRAY ACQ]3 


RN REE EERE EEE EEE ENE EEE ENE EERE eR eee 
BEGIN 
REAL CPUeTOseSEQ3 


LABEL NOTRUNNINGSEXITS 


Revesets @eeeete 


BEGIN LOCM#L SViseSV2I 
DOIeswORKs DOSteSL IT" "3 STteWORK? DSte9WOSs %¥ BLANK ARRAY 
OI s#wORK; OSsw4.LIT"CRUs"s SVisteDIs STaelLOc CPU; 
2COSi*2CHRs DSHBOLIT” WRSe "3 
OSs+m2CHR? OSHSOLIT™ MINe "3 
OSem2CuRs OSHSLIT"™,"5 OStaCHRs OSSwOLIT” SEC 45 
Ole#SVis OSt*aLSFILLs SV2ee013 SIlseSV2s OI seSvi3 
26cIF SCa"X" THEN JUMP OUT ELSE DSsRCHR)3 
STs3LOc 103 DS#aALIT" JOR"; SVitwDIDs DI taprea; 
CMPCOS#e1OLIT™ AT SEQ # "3 SVisamOls SI$elLOC R273 
DS#BBDEC? DSSHLITVA"s OLSMSVis OSte7FILLs SVesmOTs 
SlseSvV2s OLssSVis SCIF SC#"S" THEN JUMP OUT ELSE DSIBCHR))3 
DS#eoSLIT™ 3 
ENO STREAM PROCEDURE MESSAGE 


eC ooeteee Peete Peoeeneneeteaneenesneceateneone 


STREAN PROCEDURE MESSAGE CWORKACPUsTQsCMPoRa7)3 VALUE CPUsIOsCMPORDOTs 
erspeegenet 


OMHHEHHA HMR EHH EHRAEH HO LOHHRH RHEE ReeHHRtenead 


START OF 
78 1s 
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START OF 


43019300 T 0043 
43019310 FT 0014 
43019320 T O019 
43019330 7 90019 
43019340 7 O02] 
43019350 T 0023 
43019360 fT 90023 
43019370 T 0025 
43019380 T 0027 
43019390 T O02? 
43019400 y 0031 
43019410 T 0032 
43019420 TF 0033 
43019430 7 0033 
43019440 T 0035 
43019450 T 0036 
43019860 7 0036 
43019470 T 0036 
43019500 Y 0037 
SEGMENT ewstetatee 
3 LONGs NEXT SEG 
43019600 7 0037 
43019700 T 0034 
43019800 fT 0038 
43019900 yr OQ4a 
43@20000 T 0043 
43020100 T 0047 
43020200 Tt 0048 
59 LONGs NEXT SEG 
44900000 F Q064 
44000100 7 006% 
44600200 7 0061 
44000300 Tr 0061 
44900400 7 0064 
SEGMENT #extbeewen 
44000500 T 0000 
44000600 fF 0000 
44000700 fF 00060 
44000800 fT 0000 
44000900 T 0000 
44001000 fT 00060 
44001400 T 0002 
44901200 T 0003 
44001300 rf Q005 
440034800 T 0006 
44001500 T 0008 
44003600 f 0009 
44001700 Tt Q012 
44001800 T 0013 
44001900 T 0016 
44002000 T 0038 
4a002100 T O084 
44002200 fT 0024 


78 
im) 


79 


ae ae : Le a 


CASE DOING OF 
BEGIN 


BEGIN % CASE 0 = INITIAL CHECK 
IF RUNNING OR COMPILING TREN 
If RUN1 NE@ 0 AND RUN2 NEQ O THEN 
BEGIN 
ACBASE+3]2 =REALCCOMPILING)3 
IF RUNNING THEN 
BEGIN 


IF SP eeer hone yeh anes? THEN % REQUIRES SHIFTING 
BEGIN 
ACBASE]8SIF RUNLE12:6)]4"1" THEN FILENAME ELSE 


" "RRUNICOt12936)3 
ENDS 


ATBASEFIJI@MATCHCRUN2s"CANDE ") USERCODE ELSE RUN2s 


ACBASE*2I):8USERCODES 
GND % IF RUNNING 


LS& 
BEGIN 
ACBASEI]35RUN2Z3 & COMPILER NAME 


ACBASE*+LI]¢aIF RUNL SC OR12] 815" THEN FILENAME ELSE RUN}S 


Sere cone ae % NEGATIVE TF COMPILING 
3 IF COMPILIN 


END3 
STARTUS (LLELANC 3396117)» ALBASEI/ACBASE+1)sALBASE42])3 


WAITFOR t® LAM} 
TEMP I= 43 
DOING $= 13 

GO TO EXIT} 
ENDS 


NOTRUNNING# 


WORK(COJ$a"NO YOBS"F BLANK CWORK(0))3 
WORKEL JE e"RUNNING"S BLANKCWORK(11)3 
TWXQUT CLL e® WORK CO] 2162198 
INQUIRYIaFALSES 
IAM ta 03 
EnNDs &% CASE O 

BEGIN XS CA een eeanteon 
BEGIN & CASE. { ” RESULTS OF INQUIRY 
Ie EVENTS£C1i] LSS 0 THEN GO TO NOTRUNNINGS 
CPUSTIMECONVCEVENTSCAIS FALSE) 3S 
TotsIF EVENTSC2]sREALCNOT FALSE) THEN O ELSE 

TIMECONVCEVENTSOC2) oF ALSED3 

IF BOOLEANCALCGASE*3]) THEN & COMPILING 
IF (SEQSSEVENTS £33) » = USERCODE THEN A [BASE43272803 
MESSAGE CWORKe CPUs TOs AC BASE*3)SEQ)3 
TWXOUTELLeWORKLCO]28001)3 
INQUIRYEBFALSES 

YaM ta O03 
END CASE 23 


END abl CASES} 


EXITS 


ERY Cre on te a eran oh eee ao Se 


%040a" 


44002300 
44002400 
44002500 
44902600 
44002700 
44002800 
44002900 
44003000 
44003100 
44003200 
44003300 
44003400 
44903500 
44003600 
44003700 
44003800 
44903900 
44004000 
44804100 
44004200 
44004300 
44004400 
44004500 
44804600 
44904700 
44904800 
44904900 
44905000 
44005400 
44005200 
44995300 
44905400 
44005500 
44005600 
44005700 
44005800 
44005900 
44006000 


44006100 | 


4400906200 
44006300 
44006400 
440063500 
44006600 
44006700 
44006600 
44006900 
44007000 
44007100 
44007200 


START OF SEGMENT 
3 LONG» NEXT SEG 79 
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44007300 


0025 
0025 
0028 
0025 
0027 
0030 
0030 
0033 
0033 
0034 
0036 
0037 
0040 
QQ4a2 
0042 
0048 
0050 
0050 
0030 
0052 
0033 
0058 
0060 
0060 
0065 
0066 
0067 
0068 
0068 
0068 
0069 
O07, 
0073 
0007S 
0077 
0078 
QOQ?Fa 
0078 
0078 
0080 
0082 
0084 
0086 
0087 
0092 
0095 
0097 
0099 
01900 
0100 
weeaeee tavern 30 


a et tt Ht tt ttt os a to te 


Y 0104 


erie 


PMS, nc 8¥ 


sre 


sre Busine 


Myo 
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6 a s ry 


ENO PROCEDURE STATUSCHECKS 


Beek ewe new akdeaekekine 


PROCEDURE SSMSG3 
BEGIN 
DEFINE ACALJSLINECLLs ALIS 


STREAM PROCEDURE FRMCFeTeUCeLLO4 VALUE UCaoLLe 
BEGIN 
SI te LOC UCs UPS; 
DI ts 73 
OS te 8B LIT *## FROM "3 
OS tm 7 CHR: 
pS ta 2 LIT ™ ¢"5 
SI t= LOC LLs 
OS %t=x 2 DEC} 
OS t= S LIT *) "5 
SI ts F3 
DStaq5 WOS3 
END FRM3 


PROCEDURE SPOUTCLOWeAeT)2 VALUE Ts BOOLEAN LCws ARRAY ACO]S 


REAL T3 
BEGIN 
LABEL XyTj 
STREAM PROCEDURE Bé¥CWrUCoL Ls VALUE UC#LL3 


DS ts 6 LIT *) BUSY"; 
END BZY3 


IF IQLELINE OR ALLOWMSG THEN TWXQUTCLL®WORK[O) 214402) 


ELSE 
BEGIN 
IF RUNNING THEN MATCHOMCANDE "*eRUN2) ELSE 
BEGIN... 
BZYCWORKC 20] sUSERCODE sLL D3 
TWXOUTCT*#WORKE 20) 0160193 
GO X1IT 
END3 


79 «18 


44007400 


106 LONGs NEXT SEG 


30000000 
390000100 
530000200 
50000300 


START OF SEGMENT 


50000400 
50000500 
50000600 
50000700 
56000800 
50000900 
50001000 
50001100 
50001200 
50001300 
59001400 
§0001500 
50001600 


50001700 
50001800 
50001900 
50002000 


START OF SEGMENT 


39002100 
90002200 
30902300 
90002400 
390002500 
50002600 
90002700 
20002800 
90002900 
30003000 
58003100 


30003200 


90003300 
390003400 
90003500 
90003400 
30003700 
30003800 
5308903900 
50004000 


T 0104 


T 0064 


T O064 
T 9064 
7 0064 


weeeettetnn 


0000 


9000 
0000 
0000 
0000 
0002 
0002 
0002 
0003 
0003 
0004 
0004 
0004 


ee ee ee | 


0005 
0005 
0005 
0005 


0000 
000Q 
0000 
Q000 
0000 
0000 
0004 
0004 
O004 
0002 
Q003 


te at te st 


0003 
0008 
0008 
0009 
0012 
0044 
0015 
00147 
0038 


ee ee 


ceaeethawven 


8 


81 


82 


= 


VALET 
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ore Bleness 
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EVENTSCO] tm OBLLC2584088) &VSSMSGL1834187)3 
MOVE (4e@WORDS#*WORKCLOIJ2EVENTSL1iI)3 
REMEMBERTHISCLCW)3 
ENOS 
XIT! 
ENO sPOUT3 


LABEL ERR» EX}Ts 
BOOLEAN GOTONE3 
REAL T,WORD:S 
Reareweeaeweeawwns START WERE 
FRMCL »sWORK*USERCODE LL OS 
T te L3 
IF CWORDESACBASE4+2)])¢0383) & O THEN 
BEGIN 
IF LL t% WORD GTR MAXLINES THEN GO ERR} 
IF LOGGEDON THEN SPOUTCLCWsAL*) oT) ELSE GO ERRS 
GO ExIT 
ENO: 
IF T * QO THEN 
MATCHCWORD,C6842]5 "ALL ") 
BEGIN 
FOR LL t@ 1 STEP 1 UNTIL MAXLINES 00 
IF USERCODE NEQ@ QO THEN 
BEGIN. 
SPOUTCLOWsACHI] eT 23 
GOTONE tx TRUE; 
ENDS 
IF NOT GOTONE THEN GQ ERRS GO EXIT 
ENO3 
FOR LL $3 O STEP 1 UNTIL MAXLINES 0O 
IF LOGGEDON THEN 
MATCHCWORD,C6%42]5 LINECLLs VCLOC)) 
BEGIN SPOUTCLCWeAL a) oT 23 
GOTONE %# TRUES 
ENO3 
IF GOTONE THEN GO EXIT} 
ERR! 
LiL te TS 
LITOUTC*NOQT ON "0193 
WRITEASTERISK # FALSE 
EXIT! 
Li, ta TH 
END §SMSG3} 


Ree HER EARNER EEN HEATER ERNE RARE KERR EER 


PROCEOURE PDIT (LCWs» A)S BOOLEAN LCWS ARRAY AlQ]3 


PSPC EPSP E CPPS CEES erie ee Perrrreretattesi ey | 
BEGIN 


§0004100 TY 
29004200 T 
50004300 fT 
§0004400 fT 
390004500 T 
530004600 fT 

26 LONG» 


390004700 
30004800 
90904900 
90005000 
99005100 
30005200 
30005300 
38005400 
90005500 
58005600 
30005700 
39005800 
300035900 
30006000 


90006100 


T 
T 
T 
T 
T 
T 
T 
T 
T 
7’ 
T 
T 
T 
T 
T 
390006200 T 
50006300 T 
530006400 T 
58906500 T 
50006600 T 
59906700 T 
50006800 T 
59006900 T 
2908907000 T 
50007100 T 
59007200 T 
50007300 T 
50007400 T 
50907500 Y 
58007600 T 
50907700 T 
50007800 T 
50007900 T 
50008000 T 
§8908100 T 
20008200 T 
59608300 T 
63 LONG, 


531900000 T 
91000100 T 
31000200 T 
313000300 T 


0018 
0021 
0023 
0024 
0024 


0025 
NEXT SEG 


0005 
0005 
0005 
0008 
0005 
0008 
0008 
0012 
0042 
0014 
0020 
9020 
0020 
0024 
0024 
0045 
0027 
0028 
0029 
0033 
0034 
0036 
0037 
0037 
0039 
0040 
0040 
0049 
0050 
0052 
0053 
0054 
0054 
0055 
0058 
0059 
0059 

NEXT SEG 


0061 
0064 
0061 
0064 


LABEL GETIT» EXITs 


INTEGER Ij 
REAL STREAM PROCEDURE FORMCT oF )3 
BEGIN 


Sr t# F} OF &% TZ UPS} 

Ir SC LSS "0" THEN 
BEGIN 

DSteLIT"™ "3 DSSz7CHR TALLYB ay} 
ENp ELSE 

IF Sc EQL “*O" THEN % QBVJECTFILE, 
BEGIN UPS; 

Ir S¢C LSS "0" THEN % NOT WRKFILE 

BEGIN OSIs2LIT”™ #3 OSSe6CHRS TALLY#$a12 ENDS 
ENp IF OBVECT FILES 

FORMS3TALLY} 
ENp OF FORM 


CASE DOING OF 

BEGIN 

BEGIN % CASE O-¢ 
ACBASE J 8@MODULUSS DOTNGS#43 


ACBASE+1] t= 03 ® USED FOR ADOR SECOND WALF, 
ACBASE+2] t= 03 % USED FOR ADOR LINKe 
SREG ta BASE*33% BUFFER POINTER. 
TEMP t= 113 % ALLOW 8 WOS BUFFER, 
END CASE 03 


BEGIN © CASE 1e CFIRST HALF OF BLOCK) 
ACBASE] taCTesACBASE)) "43 
IF 130 THEN GO EXIT3 
LLDISKREADIMALCBASE*1) 221 te2SCRAMBLEC Is USERCODE D4 
WANT t8VOISKREAD3 
DOING! #23 

END CASE 13 

BEGIN & CASE 2— CFIRST HALF IN)De 
ACBASE +2) 8SWORK(2),.FF3 % ADDR LINK 
ACBASE+1)9sACBASE+#13413% aDOR SECOND HALF, 
GO GETITS 

END CASE 23 

BEGIN &% CASE 3+ CANY HALF IN), 

GETIT! 

FOR 18*0 STEP 3 UNTIL 27 DO 
IF WORKECT +i) #USERCODE THEN 

BEGIN 
SREGSRFORMCACSREGJ*WORK(I)24SREG3 
IF SREG*BASE GTR 10 THEN 

BEGIN & PRINT THE LINE. 
SREGISBASE+33 
MOVE C Bs WORDSSACSREGI oA. 0))3 
TWXOUTCLEL AL COs 640404 

END PRINTING 

ENO FOR3 
IF LLDISKREADS SACBASE41) GTR 1000 THEN 

BEGIN & GET SECOND HALF BLOCK, 


31000400 


START OF SEGMENT 


91000500 
31000600 
31000700 
31000800 
91000900 
31000950 
31001000 
31001010 
21001020 
91001030 
31001040 
51001050 
31001060 
31001090 
31001100 


31001200 
91001300 
91001400 
31001500 
91001600 
31001700 
51001600 
91001900 
931002000 
91002100 
319002200 
31002300 
91002400 
91902500 
31002600 
51002700 
91002600 
21902900 
31603000 
91903100 
91003200 
91003300 
51903400 
91003500 
91003600 
91003700 
51903600 
91003900 
91004000 
91004100 
91004200 
91004300 
31004400 
91004500 
31804600 
51004700 


T 


kaeekeetew 


HAHAHA to 


AAA AHHH HAH AA ttt st ot a tt a ot ta Ht 


0064 


0000 
0000 
0000 
0000 
0000 
0004 
0004 
0002 
0003 
0003 
0004 
0004 
0006 
0006 
0006 


0007 
0008 
0008 
0008 
0040 
0012 
0014 
0015 
0046 
0016 
0016 
0019 
0020 
0030 
0034 
0032 
0032 
0032 
0035 
0038 
0038 
0039 
0039 
0040 
0044 
0042 
0043 
0046 
0047 
0048 
0049 
0054 
0053 
0053 
0055 
0058 


SfeTs Jia $v Sart 


END 


BEGIN 


END 
END 


ACBASE4+1] #03 
DOING!?3#33 
WANT&aVDISKREAD3S 


ELSE 
TF LWOTSKREADtSACBASE+2] GTR 1000 THEN 


ACBASE4+2]3203 
ACBASE+1 13 *LLDISKREADS 
DOING#=23 

WANTS #VDISKREAD3 

ELSE DOINGt=13 

CASE 33 


BEGIN % CASE 4, (CWRAPUP),. 


EXITS 


IF SREG*BASE GTR 3 THEN 


BEGIN 
Ts*SREG*BASE*33 SREGISBASE+33 
MOVECT #WORDSs ACSREGI]9400))3 
TWXOUTCLL AL COs CIT x8) sCRLF)S 
END IF LEFTOVERS3 
IAMiRQ) 
END CASE 43 
END ALL CASES; 


END OF PODIT3 


PE PSREP ELSES C CESSES ETE L EEE EPEC EPCOT PSLreTASICeCCLCLECLLLLALrrrriciiri. 


PROCEDURE COPYITCLCWsA)3 BOOLEAN LCWA ARRAY AL ¥]3 


SUPERS OEE E CERES CSE E EEE SPCC EET E CCCI CSCC TALT LTCC TCT CLT CALTE TTL Tritre 


BEGIN 
COMMENT HANDLES CANDE VERBS} 


APPEND» COPYs DELETE» MERGE» PUNCHs RESEQ>s 
REAL INPCOUNTs OUTCOUNT»s PREVNUMBERs WORDs UNIT» UNITNUMBERS 


RMERGE3S 


FILNAMY, FILNAM2@s FILNAM3» SAVEWORDs NPARAMSs VERB} 
LABEL EXxITsERRORS 
BOOLEAN TOGWORDsWINDUP3 
DEFINE 
REVERSE TOG = TOGWORDelOL8iJ#» RESEQVERB # TOGWORDe(O0281) #» 
RESEQPARAM = TOGWORDsLO381I]#* HAVEMINUS = TOGWORDe(O4t1I#» 
HARDCOPY = TOGWORDse(O581)#* NOTWORKFILE = TOGWORDslO6I1L)#» 
HAVEINPUTFILE = TOGWORDelO7%1)#¢ LIBTOG ® TOGWORDe (OBI1I) 8s 
SAVE TOG = TOGWORDe[O09%1)#» HAVERESEQRANGE # TOGWORDs (1081) #5 
HAVEINCREMENT = TOGWORDe(1121)#* HAVENEWBASE ® TOGWORDel1231)] #s 
HAVEQUTPUTFILE # TOGWORDs(13%81)%2 LASTPARAM @ TOGWORDe(1491)83 
CASE DOING OF 

BEGIN 


BEGIN % CASE 0 
LABEL RESTARTS 


NPARAMS %# CACSREGH#BASE*ACBASE]) )eFF 3 % PARAMETER COUNT 


VERB 89 IF ACBASEJ#*0 THEN "COPY " ELSE 


VERBTABLELCACSREG] 46919)}206%42)3 X GET VERB NAME FROM TABLE 


* ° .e @ & 


51004900 
51004900 
51005000 
51005100 
51005200 
51005300 
51005400 
51005500 
51005600 
51905700 
51005800 
51005900 
51806000 
51006190 
51006200 
51006300 
51006400 
51006500 
51006600 
51006700 
51006800 
51006900 
START OF SEGMENT 


51007000 


83 IS 87 LONG» 


532000000 
532000100 
32000200 
532000300 
32000400 
22000500 
392000600 
START OF SEGMENT 
532000700 
92000800 
32000900 
32001000 
52001100 
92001200 
92001300 
92001400 
9¢001500 
22001600 
32001700 
92001800 
52001900 
392002000 
32002010 
START OF SEGMENT 
92002100 
52002200 
32002300 


0058 
0060 
0064 
0064 
0064 
0064 
0065 
0067 
0069 
0069 
0070 
0074 
0072 
0072 
0074 
Q074 
0077 
0080 
0082 
0082 
0083 
0083 


A AHHH HAH HH ae 


WREKKAEK KS 
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T 0064 


0064 
0064 
0064 
0064 
0061 
0064 
0064 


9000 
9000 
0000 
0000 
0000 
9000 
9000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 


ea a sss ts 


CRP AREER © 


T 0000 
T 0004 
T 0006 


NEXT SEG 


eevteeene 


84 
83 


8 


85 


86 


Bes 


orevRu 


«eo 
.- 


e ] ? . * ¢ | 


* MATCHCVERBs "DELETE ") &% SEE IF REFERS TO WORK FILE FIRST 


IF NPARAMS®O OR NPARAMS@] AND ALSREG#1)]eCOt42)""ALL =" THEN 
BEGIN % SCRATCH THE WORKFILE 
ye IF FILENAME20 THEN GOERR (ONO FILE"%1)3 *0405° 
yee DOING t= OBYECTFILE ts 05 GOODOBY t= FALSE; 
nN SOURCEFILE t* MAKEFNC"L5"%(L)3 & "18" FILE NAME 
MAKEFILECLL&1303304197)» 12 SOURCEF ILEsUSERCODE*FILETYPEs0)3 
IAM tm VSETUPFILESS WRITEASTERISK #® TRUES GO TO EXITS 
ENDS & IF OELETING THE WORKFILE 
MATCHCVERB»"PUNCH ™) & PAPER TAPE 
a) | BEGIN 
\e IF SCHEDULINE THEN GOERR("PUNGH "24093 
ae IF DEVICE=CONRAC OR DEVICESBIDS THEN GOERR("PUNCH 456)3 
‘ ‘ % PUT YOUR FUNNY TERMINALS HERE 
\ 
HARDCOPY 1% TRUES 
END3 & IF PUNCH VERB 
If FILETYPE®8 THEN &% TYPE DATA FILE 
BEGIN 
MATCH(VERB»"MERGE ") GOERRC"MERGE "957)3 
MATCH(VERBs"RMERGE ") GUERRC"RMERGE "257)35 
ENDS % IF OATA FILE 
IF TPCQUNT GTR 0 THEN % WORK FILE NEEDS UPDATING 
BEGIN 
LITOUTC"WAIT, "*NOCRLFIS TEMP8813 WANTS®VUPDATES 
GO YO EXITS 
mn _ ENDS 
MATCHCVERBs"RMERGE ") % REVERSE MERGE 
& BEGIN 
Wd REVERSETOG t= TRUES VERB t= "MERGE "3 


—. . ENDS 
CLEARCWORKELO]29)5 % ZERO UUT THE "WORK" ARRAY 
r MATCH(VERBs"RESEQ "“) % SET DEFAULT OPTIONS 
BEGIN 
RESEQVERB t= TRUES 
WORKE5] %* "13 % DEFAULT LOWER BOUND FOR RESEQ 
W WORKE6) €8 1000000003 %& DEFAULT UPPER BOUND FUR RESEQ 
WORKC7) $© WORKE8) t 1003 % DEFAULT BASE AND INGRe FUR RESEQ, 
ENDS 
ORK $= MAKEFNC*LSeLL)4 & DEFAULT OUTPUT FILE NAME 
FILNAMS t# WORKE10] #= SOURCEFILES % DEFAULT SOURCE FILE NAME 
FILNAM2 te WORK(2) t USERCODES 
INPCOUNT 8* 04 QUTCOUNT ts 203 PREVNUMBER t= =43 
RESTART: 


LPORPeER PCE eRe Cereerrerererererrrerrererrerrrererrre rrr rre re re rer 


WHILE CINPCOUNT LSS NPARAMS) OR WINDUP DO X PICK UP ALL PARAMS 


L POPUP ePELUCEEUTEPELEPEPECETEPELETELEPEETEPEPEeLEPeTELKETereer erin 


LABEL UNSIGNEDs NEGATIVES 


f 


%0407" 
40501° 


LABEL SUFFIX} 
LABEL NUMUSERZ 
If WINDUP THEN ® FINISHING UP LAST PARAMETER 


BEGIN 
_ WINDUPSSFALSES GQ TO UNSIGNED? 
END3 


| 


52902400 
52002500 
92002600 
32002650 
92002700 
52002800 
92002900 
32803000 
326903100 
52003200 
92003300 
52003400 
22003500 
92003600 
52003700 
32003800 
32803900 
52004000 
52004100 
92004200 
32004300 
52004400 
32004500 
32004600 
32004700 
32004800 
52004900 
32005000 
52009100 
392005200 
92005300 
32005400 
32005500 
92005600 
22005700 
32005800 
52005900 
92006000 
32006100 
52006200 
392006300 
52006400 
52906500 
32906600 
32006610 
32006700 
532006800 
52006900 
32807000 
32007010 


START OF SEGMENT 


32007012 


32807015 


32007020 
929007030 
52007040 
92007050 


AHA HOO + 4H tt ott A tt a tt ttt A tt A tot tt st tt 9 100 HH 


Wee e eee 


0000 
0000 
0000 
9000 
9000 
0002 


87 


oe Bolt- 


waore@ Boltne at foe a, nt. s¥ pte 


NUMUSER? 


SREG tm SREG + 15 % ADVANCE "STACK" POINTER 
INPCOUNT %8& INPCOUNT # 13 % COUNT THIS PARAMETER 
WORB ts ACSREG]S % TRANSFER PARAMETER 


FORE PPU PERE ELEPPEPEPELETER Tree eeREPeREPEE EPP reEee reer eee err 


IF WORD.C32332 GTR QO THEN % PARAMETER IS A LETTER STRING 
Reem ea eH OHO HORE RHE H EHH OHHH HOHE FO EH EHH OHRORO HORE ROHR O ES 
BEGIN 
WORD ,C195) $% O03 & ZERQ OUT "CODE" PORTION 
MATCHCWORDs "END ") & CONVERT TO EQF MARK 
BEGIN 
WORD ta 1000000003 
GO TO UNSIGNED$ 
END3 
MATCHCWORDe PRINTER") UNIT &§@ 2 ELSE 
MATCHCWORDs"PUNCH “) UNIT 88 3 ELSE 
MATCHCWORDs "TAPE ") UNIT 83 4 ELSE 


MATCHCWORDs"LPA ") UNIT ta 5S ELSE %0901° 
MATCHCWORDs "LPB ") UNIT ts 6 ELSE 20901" 
UNIT 3% 03 
IF UNIT GTR O THEN & HARD COPY REQUESTED 
BEGIN 


MATCHCVERBs "COPY ") ELSE GO ERROR; 
IF HARDCOPY THEN GO ERROR# % REDUNDANT 
IF NOT HAVEMINUS THEN GO ERRORS %& MISSING "TO" 
IF HAVEOQUTPUTFILE THEN GO ERROR} 
UNITNUMBER 4% UNITS % SAVE UNIT NUMBER 
HARDCOPY %# TRUES 
HAVEMINUS $= FALSE3S 
END 2 IF UNIT GTR O 
ELSE MATCHCWORDs"RESEQ ") 
IF LIBTOG THEN GO SUFFIX ELSE %"RESEQ" IS FILE*NAMESO407= 


BEGIN 
IF RESEQVERB OR RESEGPARAM THEN GO ERROR; 
RESEQPARAM $= TRUES 
WORKL5) #3 "13 % DEFAULT LOWER BOUND FOR RESEQ 
WORKL6] $= 1000000003 % DEFAULT UPPER BOWND FOR RESEQ 
WORK(7] $* WORKCSI ta 1003 % DEFAULT BASE AND INCR, 
PREVNUMBER t= "13 % RESET COMPARISON VALUE 
IF SAvETOS THEN % NUMBER STORED IN SAVEWORD 
IN 

IF OUTCOUNT t# OUTCOUNT+1 GTR 29 THEN 

GOERR("TOOMANYs 30)3 

WORKCOUTCOUNT) $8 SAVEWORDS 

SAVETOG $= FALSE} 

ENDS % IF SAVETOGS 
END * IF “RESEQ" 

ELSE MATCHCWQRDs "TO ") 


BEGIN 
Ik HAVEMINUS THEN GO ERRORS % REDUNDANT 
HAVEMINUS t= TRUES 
ENO * IF "TO" 
ELSE MATCHCWORDs*LIBRARY") 
BEGIN 
IF LIBTOG THEN GO ERRORS &% REDUNDANT 
IF NOT HAVEINPUTFILE THEN GOERRCWORDs55)4 % NO FIRST NAME 
LIBTOG t* TRUES 
403501* 


52007100 
52007200 
52007300 
52007400 
52007500 
52007600 
52007700 
52007800 
52007900 
52008000 
52008100 
52008200 
52008300 
52008400 
52008500 
52908600 
52008610 
52008620 
52008700 
52908800 
52008900 
52009000 
58009100 
52009200 
52009300 
52009400 
52009500 
52909600 
52009700 
52009800 
52009850 
52009900 
52040000 
52010100 
§2010200 
52010300 
52010600 
52010500 
52010600 
52010700 
52010800 
52010900 
52011000 
$2013100 
52011200 
52011300 
§2011400 
52011500 
52011600 
§2#011700 
52011800 
52011900 
52012000 
52012100 
52912200 
52012300 
52012305 


OA HAHA HHA Ht tt tt ttt 9 49 0) tt 9 at 9 tt a at ht st 0) at st tt te te ot 


0002 


0003 
0004 
0006 
0006 
0007 
0007 
0007 
0009 
00114 
Q014 
0012 
0015 
0015 
0017 
0022 
0027 
0032 
0037 
0040 
0044 
0042 
0048 
0051 
0055 
0059 
0059 
0064 
0063 
0063 
0063 
0066 
0067 
0071 
0073 
Q07s 
0076 
0078 
0079 
0080 
0080 
0082 
0089 
0094 
QQ9a 
0092 
0092 
0092 
0099 
0102 
0104 
0404 
0194 
0108 
O4l1 
Q119 
0121 


jh 


«@ 
- 


SUFFIX! 


Whe i 7 


CoPY j60- ABC 70 Ke 


UNSIGNED! 


¢ ‘. @ © & 
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IF INPCOUNT + 2 LEQ NPARAMS THEN %0501° 
FIXUSER CINPCOUNT*AsEXIT* TRUE) z05015 
END % IF "LIBRARY" 
ELSE IF LIBTOG THEN % SHOULD BE SECOND NAME OF FILE 
BEGIN 
%0407 


MATCHCVERBs"DELETE ") GOERRCWORDs39)3 % OUTSIDE FILE 
MATCHCVERBs"RESEQ ") GOERRCWORDs39)3 % OUTSIUE FILE 
IF HAVEQUTPUTFILE THEN GOERRC(WORDs39)3 
FILNAM2 3® WORDS %& SAVE SECOND NAME OF FILE 
LIBTOG $& FALSE3 
END % IF LisTogG OR HAVEMINUS 
ELSE IF HAVEINPUTFILE ATHEN % MIGHT BE OUTPUT FILE 
BEGIN 
MATCHCVERBs"COPY ") ELSE GO ERROR} 
IF NUT HAVEMINUS THEN GO ERROR ELSE HAVEMINUSISFALSES 
IF HARDCOPY THEN GO ERROR} 
IF HAVEQUTPUTFILE THEN GO ERROR} 
IF CFILNAM3S@WORD) C4286) NE@ ™ " THEN GOERRCWORDs42)3 
HAVEQUTPUTFILE t8 TRUE 
NOTWORKFILE %= TRUES 
END ® IF HAVEINPUTFILE 
ELSE 
BEGIN % SHOULD BE INPUT FILE NAME 
IF HAVEMINUS THEN GO ERROR3 
IF COMPAR(VERBs"DELETE ") OR COMPARCVERBs"RESEQ ”) THEN 
BEGIN 
IF COMPARCWORD*FILENAME) THEN GOERR("WRKFILE"s62)3 
NOTWORKFILE t# TRUE; 
ND3 


FILNAMY $= WORD3 
HAVEINPUTFILE $% TRUES 
ENDS % IF FILENAME 
END % IF PARAMETER IS A "STRING" 
ELSE 
Soavecccenne SeeeHeoeaeneeat ee esate tHeeHeHeHGaahetHoaneReeenseeeeegns 
IF WORDeCiS2)4i THEN % FARAMETER IS aA "SPECLAL” CMARACTER 
FOOLER EREVOLeULCECPETPELELELEPEPTELETEETTETETeTEEEETTeRTeT Terre 
BEGIN 
IF WORD,C42tOJa"/h THEN 
BEGIN 
IF LIBTOG THEN GO ERRORS LIBTOG?sTRUES 
GO TQ NUMUSERS 40501" 
END 
ELSE IF wORD,C42;6)]3"%@" THEN 
BEGIN 
IF HAVEMINUS THEN GO ERRORS HAVEMINUS$ STRUES 


END 
ELSE GO ERRORS % FUNNY CHARACTER 
END % IF A SPECIAL CHARACTER 
ELSE 
POUR ePEREREE TREES EPP TE PEPEEE PEEP eRe E Pere eee ee eee Teer ee ee 
IF WORDsf4#5730 THEN % AN UNSIGNED NUMBER 
_ PORE ESOP ee Cer errerrerrerer ere rrrrrerrrrre rer erry, 


BEGIN 
IF HAVEMINUS THEN % SHOULO BE NEGATIVE NUMBER 


92012310 
32012320 
92012400 
929012500 
32012600 
92012650 
92012700 
92012800 
92012900 
92013000 
32013100 
32913200 
32013300 
32013400 
92013500 


92013600 © 


32013700 
32013800 
92013900 
32014000 
92014100 
532014200 
92014300 
52914400 
52014500 
52014510 
92014520 
92014600 
229014700 
32014800 
32014810 
532014900 
32015000 
92015100 
32013200 
32015300 
32035400 
9#915500 
532015600 
32915700 
38015800 
32015900 
52015950 
32016000 
32916100 
52016200 
92016300 
52016400 
32016500 
92016600 
392016700 
52016800 
92016900 
92017000 
92017100 
32017200 
32017300 


Oe tO tt tt tt tt tt tA A A TH tt tt st a ttt HO Oo 


0122 
0423 
0126 
0126 
0129 
0430 
0131 
0139 
0148 
0156 
Q157 
0159 
0159 
0162 


0463 


0169 
0175 
0178 
0182 
0194 
0193 
0194 
0194 
0194 
0195 
0198 
0202 
0202 
Qei2 
0213 
0213 
O214 
0216 
0216 
0216 
0216 
0216 
Oe21 
0224 
0224 
0223 
0223 
0228 
0229 
0229 
0231 
0234 
0236 
0236 
0239 
0239 
0239 
0239 
0241 
0241 
0244 
0242 


* @ 


= umes e307 cacy oh ee oS 


BEGIN 
WORD &t# *WORDS HAVEMINUS tm FALSE GO TO NEGATIVES 


ENDS 
IF SAVETOG THEN % ALREADY HAVE A NUMBER STORED JIN *SAVEWORD" 
BEGIN 
IF RESEQPARAM THEN 
BEGIN 
IF HAVERESEQRANGE THEN GOERRCWORDs5923 
IF LASTPARAM THEN WORKE7) 8 2®SAVEWORD 
ELSE GOERR(WORDs59)3 
END % IF. RESEQPARAM 
ELSE IF RESEQVERB THEN % BASE OR RANGE LeBe 
BEGIN 
IF HAVERESEQRANGE AND HAVENEWBASE THEN GOERRCWORDs59)3 
IF HAVERESEQRANGE OR LASTPARAM THEN 
BEGIN 
WORK(7] $8 SAVEWORDS 
HAVENEWBASE 38 TRUE 
END 
ELSE 
BEGIN 
WORKE(5] &s3 WORK(6) t= SAVEWORDs % RESEQ QNE RECORD 
HAVERESEQRANGE %# TRUE 
ENDS 
END % IF RESEQVERB 


QUTCOUNT t# QUTCOUNT + 13 
IF QUTCOUNT GTR 29 THEN GOERRC"TOOMANY",30)3 
WORKCOUTCOUNT] #3 SAVEWORDS 
ENDS 
ENDS & IF SAVETOG 
SAVEWORD ts WORDS % SAVE THIS NUMBER 
SAVETOG ts TRUE; 
END % IF PARAMETER 15 AN UNSIGNED NUMBER 
ELSE 
-POEVEVEREVEreeErerrrererererrrerrerrrreer eres rere errr re rr eee yee 
IF WORDelCA#2]%2 THEN % PARAMETER IS A NEGATIVE NUMBER 
POCO eCeRePEeree Perera rerererereere rere ererrrereserrrerer er yy 
BEGIN 
NEGATIVES 
IF NOT SAVETOG THEN GOERRCWORDs11)3 %& MISSING LOWER BOUND 
IF PREVNUMBER GEQ SAVEWORD THEN GOERRC(SAVEWORD?58)3 
IF SAVEWORD GEQ ABSCWORD) THEN GOERRCWORDs56)3 
IF RESEQVERB OR RESEQ@PARAM THEN 
BEGIN 
IF HAVERESEQRANGE THEN GQ ERROR 
WORK(S] $* SAVEWORDS % LOWER BOUND FOR RESEQ 
WORK(7) &t* SAVEWORDS % BASE FOR RESEQ3 
SAVETOG &# FALSE 
WORK(6] %* ABSCWORD)S % UPPER BOUND FOR RESEQ 
HAVERESEQRANGE %& TRUES 
ENO % IF RESEQVERB QR RESEQPARAM 
ELSE 


BEGIN 
IF OUTCOUNTSSQOUTCOUNT#1 GTR 28 THEN GOERRC*TOOMANY"» 30)3 
WORKCOUTCOUNT] t8 SAVEWORD; 


. @ . e @ @ © 


532017400 
92017500 
52017600 
52017700 
920176800 
32917900 
52938000 
92018100 
32018200 
92018300 
5a018400 
32818500 
52018600 
52018700 
32018800 
52018900 
52949000 
52019100 
52019200 
32019300 
32019400 
52039500 
52019600 
32019700 
32019800 
92019900 
92020000 
52020100 
529020200 
32020300 
32020400 
32020500 
32020600 
52020700 
92020800 
92020900 
52021000 
52021100 
52021200 
32021300 
72021400 
92021500 
32921600 
32021700 
32921800 
32921900 
32022000 


32022100 


92022200 
32022300 
532022400 
32022500 
92022600 
32022700 
92022800 
52822900 
32023000 


a a at tt tt tt tt Ha He tt Ht Ht tt Ht tt 


0242 
0243 
0246 
0246 
0247 
O2a7 
0248 
0249 
0257 
0258 
0266 
0266 
0268 
0268 
0277 
0279 
0279 
0284 
0282 
0282 
0282 
0283 
0285 
0267 
0287 
0287 
0287 
0287 
0239 
o297 
0298 
0298 
0298 
0299 
0300 
0300 
0300 
0300 
0304 
0304 
Q304 
0308 
0343 
03214 
0329 
033} 
0331 
0335 
0336 
0337 
0339 
0344 
0342 
0342 
0342 
0343 
0352 


irepay 


T 


shes Fe dab. Wl SF 


cie Bu 


BAS 


SAVETOG 8®FALSE3 
PREVNUMBER t@ ABSCWORKCOUTCOUNT I sOUTCOUNTS1I)45WORD)A 
ENDS % IF NOT A RESEQ PARAMETER 
END % IF PARAMETER IS A NEGATIVE NUMBER 
ELSE 


Por eeeereeeeeereeeere rer ee ns, 


IF WORDsCAt2]93 THEN % PARAMETER 
eee 


td] @aee ie CEES Oe es 


ea 
IS A "4" NUMBER 


e e#eeoe eee st eeeseheehaeteaeeneene 


IN 
IF NOTCRESEQVERB OR RESEQPARAM) THEN GO ERROR} 
IF HAVEINCREMENT THEN GQ ERRORS % REDUNDANT 
IF SAVETOG THEN % HAVE AN UNSIGNED NUMBER IN "SAVEWORD" 


BEGIN 
IF RESEQPARAM ANO HAVERESEQRANGE THEN GUERRCSAVEWORD 259)3 
WORKEC 7] &§® SAVEWOROS % NEW BASE 
SAVETOG &* FALSES 
HAVENEWBASE ta TRUES 
ENDS % IF SAVETOG 
WORK(8] ts WORD,C6842)3 & RESEQ INCREMENT 
HAVEINCREMENT &%&% TRUES 
END} % IF PARAMETER IS A "+" NUMBER 


 Perrerrrrrrrrrrrrererrerrrarrrarererrrrrrrirrrrr rere eres Pee 2 eee ee 


END WHILE STATEMENTS % NO MORE PARAMETERS 


x, e’SAVETOG THEN IF NOT LASTPARAM J GCoeeeneeoeHanateHeeaeteoeesateHneasn 


SAVETOG THEN IF NOT LASTPARAM THEN % NUMBER LEFT IN SAVEWORD 
BEGIN LASTPARAMS2WINDUPS@TRUES GO TO RESTARTS ENDS 
IF RESEQVERB OR RESEQPARAM THEN IF WORKE5]#®0 THEN WORK(S Jisel3 
If HARDCOPY THEN % OUTPUT TO PERIPHERTAL UNIT 


BEGIN 
WORK(9)] $* O & UNI TNUMBER(G644236) & 
CIF HAVEINPUTFILE THEN FILNAML ELSE FILENAME )012269836)3 


ENDS % IF HARDCOPY (*PUNCH" VERB ASSUMES REMOTE OVTOUT) %0405= 
If NOTWORKFILE THEN IF HAROCOPY THEN ELSE *0405= 
OR OlfalF HAVEQUTPUTFILE THEN FILNAM3 ELSE FILNAML 
EL E ee er a 
BEGIN * USING THE WORKFILE 
IF FILENAME®O THEN GOERRC("NO FILE" #13 
IF NOT HAVEINPUTFILE THEN % CHECK VERBS REQUIRING Fates 
BEGIN 
MATCHCVERBs"MERGE "2 GQERR(VERBs6)3 
MATCH(VERBs"APPEND ") GOERR(VERB?6)3 
END} 
IF RESEQVERB ANO FILETYPE#8 THEN GOERR(*RESEQ 5723 
IF RESEQVERB AND FILETYPE®] THEN % RESEQ BASIC FILE 
IF HAVENEWBASE AND HAVERESEQRANGE THEN GOERR("BASIC 415)3 


ENOS % IF USING THE WORKFILE 
WORKC3] t3 FILNAMLE 
WORK(L4) ta FILNAMQ3 
OUTCOUNT $= OUTCOUNT = 203 % ACTUAL PARAMETER COUNT 
IF RESEQVERB THEN 
If HAVERESEQRANGE AND HAVENEWBASE THEN % CALL MERGEs NOT RESEQ 
BEGIN | 
WORKECALIESWORKO5)3 % DELETION RANGE 
WORKC21)247F WORK(S Je") THEN O ELSE WORKC5)3 
WORK(22) tm eWORKC 12) &% WORK(6)3 
VERB t= "MERGE "3 WORKO1O) $3 FILNAMI3 


87 IS 


32023100 
32023200 
32023300 
52023400 
532023500 
52923600 
52923700 
32023800 
32023900 
532024000 
92024100 
92024200 
52024300 
92024400 
92024500 
92024600 
52924700 
52024800 
92024900 
92025000 
32925100 
§2025200 
92025300 


390 LONG 


52025400 
32925500 
52025600 
92025610 
22025700 
92025800 
92025900 
32026000 
32926100 
392026200 
92026300 
92026400 
92926500 
92026600 
32026700 
52026800 
92026900 
52027000 
32027100 
52027200 
52027210 
52027220 
32027300 
92027400 
92027500 
32027600 
32027700 
32027800 
52027900 
92928000 
532028010 
92028100 
32028200 


a a ae a tt DH Ht HH A a a ts ot te st st st 


i4acu7 


‘ Dest : Cake ! 


nl. SY 


core 


7 ie 


OUTCOUNT fa 23 
REVERSETOG ts TRUE 
END3 
WORKC AI SSCLLFSYSTEMISQUTCOUNT C278 4236) 8RCFILETYPE=8) (384731) 
BROREVERSETOGIES#A7S1L&RCNOT HAVEINPUTFILE (684731) 
&@ CCONCISEBITICE&a7#133 
RUN] t3 VERBS RUNG t® "CANDE "3 ERRSW $8 USERCODE3 TEMP t= 43 
LITOUTC"WAIT. “sNOCRLF)S ACBASE+3)] 2#REALCTOGWORD)3 
IF HAVEINPUTFILE QR HAVEQUTPUTFILE THEN % SEARCH DIRECTORY 


BEGIN 

IF HAVEINPUTFILE THEN 
BEGIN 
ACBASE) t= 23 ACBASE+1) $= FILNAMLS 
FINDCLLGIAMCS3S41 87) 20s FILNAMLoFILNAM2sUSERCQDE)3 


END; 
IF MAVEQUTPUTFILE THEN 
BEGIN 
ACBASEI]§21+2xXREALCHAVEINPUTFILE)3 
ACBASE*+2] 8% FILNAM33 
END? 
DOING $2 13 
WAITFOR &% IAM; 
END *% IF INPUT/OUTPUT FILES SPECIFIED 
ELSE 
BEGIN & REFERS TO WORK FILE 
IF RESEQVERB AND FILETYPE] THEN RUNIt#"RESEQB "3 
% yOIO 
x vOID 
® vOID 
WANT t# VDISPATCHS3 
ACBASE)##RUNIS 
DOING t# 23 
END 
EQJMSG t# NOT CONCISE; 
WRITEASTERISK %= CONCISE} 
DISKWRITECESP1)3 
ENDS & CASE 0 


\ POPC RPT rere rere rererrrrerrerrrrerrrirrrrrrrr rr ae ee 2 ee) 


BEGIN % CASE 1 
LABEL BUMMY3 


TOGWORB 3:2 BOOLEANCACBASE+3])3 % RECOVER TOGGLES 
If ACBASE) NE@ 4 THEN % INPUT FILE SEARCH 
BEGIN 
IF EVENTSC1) LE@ O THEN GOERRCACBASE4+1)s2)3 
IF EVENTS£2),036%6) # 8 THEN 
BEGIN 
WATCHCRUNIs"RESEQ ) GOERRCACBASE41)957)3 
MATCHCRUNIs"MERGE ") GOERRCACBASE*1 )257)3 
END3 
IF EVENTSC2)e036%6)=1 AND RESEQVERB THEN & BASIC RESEQ 


BEGIN 
IF HAVERESEQ@RANGE AND HAVENEWBASE THEN GOERR( "BASIC "91593 


RUNLSe"RESEQB "3 
END} 
IF ACBASEJ%3 THEN % WAITFOR OUTPUT FILE SEARCH 


. @ ° . @ @ 6 


92028300 
92028400 
72028500 
52028600 
32028700 
52028710 
52028800 
52028900 
32029000 
52029100 
92029200 
52029300 
92029400 
52929500 
32029600 
92029700 
52929800 
32029900 
52030000 
52930190 
52030200 
32030300 
32930400 
929030500 
92030600 
32030700 
92030800 
32030900 
392931000 
52031100 
32031200 
32031300 
92031400 
32031500 
32031600 
92931700 
32031600 
298 LONG 
92031900 
92032000 
92932010 


START OF SEGMENT 


52032100 
92032200 
92032300 
92032400 
92032500 
32032600 
32032700 
52932600 
92032900 
32033000 
32033010 
52033020 
92033030 
32033040 
920331090 


tH tt te a Ht tt ot tt tt ta set tt st 


o2z25 
0226 
0227 
O227 
0232 
0235 
0238 
9244 
0247 
0249 
0249 
0250 
0250 
0254 
0258 
0258 
0259 
0260 
0263 
0274 
0274 
0275 
0275 
0275 
0275 
0276 
0281 
0281 
0281 
0281 
0284 
0284 
0285 
0285 
0268 
0292 
0296 
NEXT SEG 
0002 
0002 
0002 
eewebawann 
0000 
0002 
0003 
0004 
0013 
0015 
0015 
0026 
0037 
0037 
0039 
0040 
0049 
0050 
0050 


85 


88 


« « . ‘ # © 4 * 4 # ¢ 
BEGIN 272033200 T 0052 
FINOCLLSIAME 3324187] 202ACBASE*2] »USERCODE »USERCODE D3 92033300 T 0052 
ACBASE] t# 15 WAITFOR t# JAMS GO TO EXIT3 32033400 7 0058 
ENDs & IF WAITING FOR OUTPUT FILE 52033500 T 0063 
END % IF ACBASE] NEQ 1 292033600 T 9063 
ELSE 52033700 T 0063 
BEGIN & CHECKING OUTPUT FILE 32033600 y 0063 
IF EVENTSC1i] GTR O THEN GQERRCACBASE+2)23)3 532033900 T 0066 
ENDS &% IF ACBASE) ® 13 52034000 T QO077 
ERRSW %* YSERCOOE: 592034100 T 0077 
WANT 8& VOISPATCH3 32034200 T 9079 
ACBASE] tm RUN13 52034300 tT 0079 
DOING %* 23 52034400 T 0082 
EnO CASE 13 92034500 T 0083 
88 1S 8& LONGs NEXT SEG 
Rome P eee O eee P OPER EH ECE H AHO H OR HROHOH EE HERE H ERODE CCR ETH OPO HOn® 392034600 T 0003 
BEGIN % CASE 2 = ADJUST AFTER CANDE yOB EQ, 32034700 YT 0003 
LABEL BUMMY3 92034710 T 0003 
START OF SEGMENT seewtewtee 
If EVENTSC1I]81 THEN % EQJ OK 22034800 T 9000 
BEGIN 52034810 T 0004 
VERBtsACBASE)3 TOGWORD 3# BOOLEANCACBASE4+3])3 32034820 T 0001 
IF NOT ¢ HARDCOPY OR NOTWORKFILE) THEN % WORK FILE ALTERATION 92034830 T Q005 
BEGIN 52634840 T 0007 
IF FILETYPE#8 THEN &% TYPE DATA FILE 52034850 tT 0007 
MATCHCVERBse"APPEND "2 LASTRECORD ts 32934860 T 9009 
LASTRECURD + COMMONCELL.C21:27) ELSE 92034870 t 0012 
MATCHCVERBs *COPY ") LASTRECORDSRCOMMONCELL,»C2i827)3 52034880 T 0015 
SQURCEFILES@MAKEFNC"1S%sLL 23 GOODOBY8eFALSES NOSAVES*FALSE3 52034890 T 0023 
END3 : 52034900 T 0030 
ENDS % IF EO OK 92833000 T 0030 
TaM#*03 IF BREAKORWRY THEN LINECLEARCLCWeAl*) 5 92035100 T 0030 
END# &% CASE 2 92035200 T 0033 
89 IS 36 LONGs NEXT SEG 
END ALL CASES; 92035300 T 0004 
START OF SEGMENT see tntee 
90 IS 4 LONG», NEXT SEG 
GO TO ExIT3 92035400 T 9005 
ERROR? GOERRCWORDs8)3 32035500 T 0005 
EXIT! 22035600 T 90013 
END PROCEDURE COPYIT;3 92035700 T O014 
685 1S 19 LONGs NEXT SEG 
ERS E SESE EES ESE E SER SLE SLE EEE EELS ES ELE E LEER EEE SEER SEE EEE EES E SEE ES} 533000000 T Q064 
PROCEDURE SEQCLCW2A23 BOOLEAN LCWZ ARRAY alOl3 33000100 FT 00614 
POSER CEPR SSCS CERE SELES ESE E ES SEEPS ELE SEC CCLE SOLIS ELIS CELE SESE S EL ESE ES S| §3000200 fT 0064 
BEGIN 53000300 fT 0061 
REAL STREAM PROCEDURE QUTSUPRCINPUT,QUTPUT)3 VALUE INPUTS 53000400 T 0064 
START OF SEGMENT seattewwen 
BEGIN 93000450 T 0000 
DIss.OC INPUTS DSts7FILLs $3000500 tT 0000 
SITs#_Oc INPUT DItsQUTPUTS 33000550 T 90006 
BCIF SCe" " THEN S148S74) ELSE 53000600 T O004 
BEGIN DSteCHRs TALLY#sTALLY413 END)3 53000700 T 0002 


85 


89 


85 


90 
85 


91 


sv 


sore Ble 


QUTSUPRs#TALLY3 
ENO STREAM PROCEDURE OUTSUPR3 


SEQCOMCLL e+ SEQWORDI4 VALUE LL» SEQWORDS REAL Lhe SEQWORDS 
COMMUNICATE ("14)3 


PROCEDURE 


REAL PC» I» WORDs SEQNOe INCRe SEQOUTS 


LABEL ERRe EXIT2 
ERRSW 8a "SEQ "i MSGPTR $8 83 SEQNOFSINCRi F943 
IF FILENAME # Q THEN GOERRCYNO FILE"2 123 
IF DEVICE = TC500 THEN GOERRC"SEQUENC's56)3 
IF FILETYPE#& THEN GOERRCYDATA 257)3 
IF PC ts ACSREGS#BASEPACBASEIJI «FF GEQ 3 THEN 
BEGIN MSGPTR %$# 163 GQ ERRS END; 
WHILE I LSS PC 00 
BEGIN 
J ts [ + 13 
IF (WORD %@ ACINCCSREG))),£2%4) = 0 THEN 
SEQNO $™ WORD,.C21327] 
ELSE IF WORD.C1!2) = 3 THEN 
INCR #® wWORD,C21827) 
ELSE GO ERR} 
END WHILE I3 
IF SEQ@NO *# 0 OR INCR GTR 500000 OR INCR ® O THEN GO ERR} 
IF INCR NEQ #4 THEN 
BEGIN JNCREMENT #@ INCRS SEQLAST #@ SEQINA ENDS 
IF SEQNO NEQ@ #1 THEN SEQOYT t# SEQNO 
ELSE SEQOUT 3% SEQLAST + INCREMENTS 
SEQLAST &$* SEQOUT 7* INCREMENTS 
IF SCHEDULINE THEN 
BEGIN %SEND OUT SEQ NUMBER FOR SCHEDULE LINES 
I t= OUTSUPRCDECCONVCSEQQUT) sWORK(O))3 
TWXOUTCLL®WORKCOJsT»>NOCRLF D3 


END 
ELSE IF DEVICESCONRAC OR DEVICESBIDS THEN & SEND SEQUENCE 
OUTPUTNUMBERSC(LCWsAL#)) 
ELSE SEQCOMC(LL» SEQOUT& INCREMENT(. 2229349) )3 
% VOID 


WRITEASTERISK t= FALSES 

SEQMODE %&% TRUES IAM $8 03 GO EXIT 
ERR: ERRORCSREGeL CWA AL] DS 

EXITSEND SEQ VERBS 


Bee RAHEEM KEENER EERE THERE EREKHHEHEHEWE REET Ee 


PROCEOURE BYE (LCWsA)s BOOLEAN LCw3 ARRAY ACO} 


TET T CITI CITE T ELITIST ETT EPS T TST eect Tete Ti eee clare iar) 
BEGIN 


94 1S 


33000800 
53000900 


53001000 


93001100 


93001200 
238001300 
33001400 
393001500 
33001520 
33001540 
53001600 
533901700 
93001800 
33901900 
93002000 
33002100 
93002200 
23002300 
33002400 
33002500 
39902600 
33002700 
33002800 
53002900 
33003000 
53003400 
93003150 
53003200 
33003250 
33903300 
33003350 
33003400 
990039410 
33003420 
53003500 
33003600 
93003700 
533003800 
33003900 
53004000 


92 LONG 


54000000 
54000100 
34900200 
54000300 


4-4 


T 
T 
T 
T 
y. 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
’ 


T 
T 
T 
T 


0003 
0003 


0004 
0004 


0006 
0006 
0006 
0009 
0016 
0025 
0032 
0035 
0037 
0039 
0039 
0040 
0043 
0044 
0047 
0047 
0048 
0049 
0052 
0053 
0057 
0058 
0062 
0064 
0065 
0066 
0069 
oo74 
0074 
0075 
0077 
0080 
0080 
0082 
0086 
0088 

NEXT SEG 


0064 
0064 
0064 
0064 


8 


Gr 
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ste Evsiness F 


FAgor 


LABEL SKIPs EXITS 


REAL 


% vOr0 
SKIP3 


BEGIN 


ENDS 
END} 


IF ACBASE) LSS 100 THEN 
Z NOT A HELLOCNEWUSER] CALL 
IF USERCODESIAM8#0 THEN GQ EXITS 
IF A CBASEJ 4SS 50 THEN % CHECK FOLLOWING IF NOT "HELLO" 


405240 

F T&eCCA CSREGISBASE*A (CBASEIJI]) FF) > 1 THEN 20524 
GOERR ("TOOMANY"s16)3 % TOG MANY PARAMETERS 405240 

IF T # 4 THEN 30524@ 
IF Te#CA CINC CSREG)1.C6942) ="BYE " THENSFORCED BYE 
ELSE GOERR (Te8) & ILLEGAL PARAMETER 30524 
ELSE ’0524° 


IF FILENAME NEQ O THEN 
IF TPCOUNT NEQ O OR FILENAME NEQ SOURCEFILE THEN 


IF NOT NOSAVE THEN 
NOSAVEtaTRUES GOERRC "NO SAVE"s 48); 


40524 
IF QUICKBYE THEN 
BEGIN 
LITOUTC"BYE 
END} 
WORKCO) 8% "ON FOR "3 BLANKCWORK(O))3 
TIMEUSEDCWORKC 1 Js TIMECONVCTIMECL )@LOGONTIMESFALSE))3 
IF NOT SCHEOULINE THEN 
THXOUTCLLeWORK(COJ] 2 33eCRLF DG 
WORKELO] $3 MCE YSE"S BLANKCWORKEO))3 
TIMEUSEDCWORKE 1 Js CHARGE SaTIMECONVCPTIMEsFALSE) 23 
TWXOUTCLL*WORKC OJ se 33eCRLF 2 
WORKECO) 8% "EXECUTE"S BLANKCWORK(0O))3 
TIMEUSEDCWORKC A Js TIMECONVCETIMESFALSE))3 
THXOUTCLL2WORK(O]s33sCRLF D3 
WORK(CO] &* "7O TIME" BLANKCWORK(0O))3 
TIMEVSEDCWORKE AJ +TIMECONVCIOTOT*FALSE) D3 
TWXQUT CLL eWORKLO) + 33eCRLF 3 
WORKCQO] $= "OFF AT "3 BLANK(WORK(O))3 


"91)3 GO SKIP3 


-TIMEOFDAYCWORKE s] + TIMECONV(TIMEC 4)» TRUE) )3 


END 


IF NOT SCHEOULINE THEN 
TWXOUTCLL A WORKCOJ* 1 6oCRLF D3 
WORKECO) 8% "GOODBYE" BLANK(WORK(O))3 
WORKECI] &% USERCODES BLANKCWORKE1))3 
TWXOUTCLL»WORKCOJ]s 16s CRLF)S 
WORKCOIS#DATES 


TWXOQUTCLL sWORK(O] 2801193 
WRITEASTERISKISFALSES WORKCOJ]24"$e¢ "5 
IF ACGASE] LSS 50 THEN % NOT HELLO 
BEGIN 
TWXQUTCLL ®WORKCO)s32"°193 & DISCONNECT THE LINE 
IF NOT SCHEOQULINE THEN GO EXITS &% REMeWKeFIL IN DISCNCT 
END} 


CHARGE §* TIMECONVCPTIME,FALSE D3 
FILESAWAY (TRUE *USERCODE)3 40527 


34000400 


START OF SEGMENT 


54000500 
54000550 
54000560 
54000600 
54000604 
54000602 
54000603 
54000604 
54000605 
54000606 
54000607 
54000608 
54000610 
54000620 
54000630 
54000640 
54000650 
54000660 
54000665 
54000670 
54000675 
54000680 
54000690 
54000700 
54000800 
54000890 
54000900 
54001000 
54001050 
54001100 
54001150 
54001200 
54001250 
54001260 
54001270 
54001280 
54001300 
54001400 
54001490 


54001500 — 
534001600 © 


94001700 
34001800 
24001810 
34001820 
534001830 
34001900 
34002000 
34002050 
34002100 
54002110 
94002120 
94802150 
940028175 
54002200 


T 


Ae oe 
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0061 


0000 
0000 
0001 
0001 
0003 
0004 
0005 
0008 
0015 
0015 
0020 
0026 
0026 
0028 
0034 
0033 
0033 
0042 
0040 
0042 
0043 
0043 
0046 
0046 
0048 
0054 
0052 
0055 
0057 
0060 
0062 
0064 
0067 
0069 
O07; 
0073 
0075 
QQ077 
0080 
0084 
0083 
0065 
0088 
0090 
0094 
0094 
0093 
0096 
0097 
0098 
0100 
0101 
0104 
0101 
0103 


ronnps, Puc. sv 


FAcore Burine.3 


t if ' ; 7 q ' 
' : i ! : : : : 


i 


y 
i 


IF SCHEOULINE THEN OISCONNECTCLCWeA)S 
FILESOQK %* BCFILENAME3#0)3 TPCOUNT 3 03 
EXIT! ENB BYES 


TEPC ESPERO S CLOSERS LESSEE S ECOSOC COC E POLS CSCC CESS SCAECOCCLELLSLCLCLLL LT TS 


PROCEDURE MAMENEWFILECA)S ARRAY ALO]3 


PER ESECTECCOSRSSCLAOSECL CLES SEC ESOS SECS EP OCCL ACEC SESE CE RE SOLOS SE LESS SSS SY 


BEGIN 
LABEL NEXT*ERRe EXITS 


REAL Ts» MAXSREG3 


DEFINE 
NAMEWORD = ALBASEJ#>s & FILE NAME 
TYPEWORD = ACBASE+1]#>» %® FILE TYPE 
SEARCHCOUNT = ALBASE*2) #2 * NUMBER OF DIRECTORY SEARCHES 
SAVESIZE = 3%} % NUMBER OF WORDS USED ABOVE 
DEFINE ERRORCERRORI)= 
BEGIN 
MSGPTRISERRORII GO TO ERR 
ENDS; 
STREAM PROCEDURE MSGCAREAsTOG)3 VALUE TOG 
BEGIN 
LABEL XT3 
DyseAREAS 
TOGCOS#e15L17T" DUPLICATE NAMES JUMP OUT TO XxT)3 
DSte{S5LIT* CREATED "3 


XTt END STREAM PROCEDURE MSG3 


CASE DOING OF 
BEGIN 
BEGIN % CASE 0 * SYNTAX CHECK 
IF FYLENAME NEQ O THEN 
If TPCOUNT NE@ O OR FILENAME NEQ SOURCEFILE THEN 
IF NOT NOSAVE THEN 
BEGIN 
NOSAVE #* TRUES GOERRC"NO SAVE" 48); 
ENO} 
MAXSREG #® ACSREGIsBASE"ACBASEI],018%15] + SREG3 
CLEARCACBASE]sSAVESIZE)3 &% ZERO OUT "STACK" WORDS 
FOR SREGtsSREG+1 STEP 1 UNTIL MAXSREG 00 


BEGIN 

IF ACSREG] £333] NEQ@ O THEN % ALPHABETIC STRING 
BEGIN 
IF NAMEWORD@0 THEN NAMEWORDIBACLSREG) ELSE 
IF TYPEWORD#Q THEN TYPEWORDISAACSREG] ELSE 
ERROR(8)3 


92 1S 


24002950 


94003000 
34003100 


124 LONG», NEXT SEG 


535000000 
55001000 
25002000 
55003000 
35004000 


START OF SEGMENT 


29005000 
95006000 
5§0070Q00 
55008000 
535009000 
535010000 
55011000 
35012000 
93013000 
35914090 
535015000 
99916000 
35017000 
55018000 
53919000 
35020000 
55921000 
535022000 
5§023000 
55024000 


35025000 
35026000 
35027000 
55028000 
959029000 
99930000 
55031000 
95032000 
99933000 
55034000 
55035000 
930396000 
59937000 
595038000 


‘39939000 


35040000 
55041000 
95042000 
99043000 


T 


T 
T 
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0104 
0107 
O13 


0064 
0064 
0061 
0064 
0064 
ea KEE 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
9000 
0000 
0000 
0000 
0000 
0000 
0000 
0004 
0006 


0007 
0007 
0008 
0008 
0008 
0009 
0013 
0015 
0015 
0024 
0024 
0027 
0028 
0033 
0033 
0034 
0035 
0038 
0042 


8 


93 


END % IF ALPHABETIC STRING 
ELSE IF ACSREGJ8"I” THEN 
BEGIN 
IF TYPEWORD30 AND SREG LSS MAXSREG THEN 
IF ACSREGH®SREG+1),03%32 GTR O THEN 
BEGIN 
IF CTS#F INDALETTERCACSREG) sTYPETABLEL 1 J»NUMOF TYPES) )#0 THEN 
BEGIN 
TYPEWORDS™ T&1C184781)3 % MARK ALREADY CHECKED 
GO TO NEXTS 
ENDS % IF IN THE TYPETABLE 
END3 % JF ALPHABETIC STRING 
ERROR(8)3 
END % IF "a" 
ELSE ERROR(8)3 % NO OTHER INPUTS ALLOWED 
NEXT3 
END SREG LOOPS 


IF NaMEWORDSO THEN GOERR( NO NAME"»6)3 % NO FILE NAME GIVEN 
IF NAMEWORD.(383] GTR 6 THEN GOERRCNAMEWORD?42)3 
IF FINDAWORD(NAMEWORD*RESWROTABLEL1J»NUMOFRESWRDS) NEQ@ O THEN 
GOERR(NAMEWORD 929 )3 
IF TYPEWORD = 0 THEN TYPEWORD 437 ELSE % DEFAULT IS SEQUENCE 
BEGIN 
IF NOT BOOLEANCTYPEWORD.C1#1)) THEN ¥ NOT PREVIOUSLY LOCATED 
BEGIN 
IF CTasFINDAWORDCTYPEWORDs TYPETABLEL 1) »NUMOF TYPES) 250 THEN 
GOERRCTYPEWORDs20)3 
END3 
TYPEWORD 133 ABS(T)3 
IF CHEOKBIT(TYPEWORD@1 »RESTRICTEDLANGUAGES) THEN 
GOERRC(TYPETABLELTYPEWORDJ»[6842], 49)3 
ENDS % CHECKING FILE TYPE 


NAMEWORD,£125)2303 
GENFILINECNAMEWORDs TYPE TABLELTYPEWORD])3 
FINDCLLGIAMEC 3384197) s0sNAMEWORDs USERCODE*USERCODE)3 % SRC 
FINOCLLGIAME 3314197] sOsNAMEWORD e168 36Js+USERCODEsUSERCODE)3 % OBy 
FILESOK t= FALSES 
TEMP t= SAVESIZE; 
DOING ta 13 
WAITFOR ¢@ TAM 
ENDS % CASE 0 
Bb he 8.0 6 eb 050s 600-09 019050) 9605066 09R I Oa de oe OOS 
BEGIN % CASE 1 ™ RESULTS OF OIJRECTORY SEARCH 
IF EVENTSC1)] GE@ O THEN NAMEWORD,C1itij}3ai3 % 
IF (SEARCHCOUNT? *SEARCHCOUNT+1)32 THEN 
BEGIN 
MSGCWORKsNAMEWORD,C181))3 % BUILO MESSAGE FOR USER. 
TWXOQUTCLL»WORKLCOJ]01591)3 
IF BOOLEANCNAMEWORD.C1%1]) THEN % ERROR 
BEGIN 
LINECLEARCLCWsAL*) 23 
MSGPTR 32 33 
FILESQK*+TRUES 40103" 
WRITEASTERISK 3% TRUES 
IF SCHEDULINE THEN 


RHO CHET HOHE HOR HORE BOE 


ERROR FLAG 


95044000 © 


55045000 
55046000 
55047000 
55048000 
55049000 
55050000 
55051000 
55052000 
55053000 
55054000 
55055000 
55056000 
55057000 
55058000 
55059000 
55060000 
55061000 
55062000 
55063000 
55064000 
55065000 
55066000 
59067000 
55068000 
5$§069000 
55070000 
55071000 
55072000 
5$073000 
55073100 
55073200 
55074000 
55075000 
55076000 
55977000 
55078000 
55079000 
55080000 
55081000 
55082000 
55083000 
550384000 
55085000 
55086000 
55087000 
55988000 
55089000 
55090000 
55091000 
55092000 
55093000 
55094000 
55995000 
55095500 
55096000 
55997000 


IF NOT NOSTOP THEN SCHEDERRORS &% TERMINATE SCHEDULE 


GO TO EXITS 

ENDS 
FILENAME %# NAMEWORD,([6%42]3 
FILETYPE t= TYPEWORD3 
LASTRECORQ 1% O} 
SOURCEFILE #9 MAKEFNC™1S"%sLL 23 
MAKEFILECLL&LICISI4IS7 Jol» SOURCEFILEsUSERCODE*FILETYPEs=2)3 
GOODOBJ #3 FALSES 
NOSAVE $s FALSEJ 
OBJECTFILE 83 O35 
SEQLAST #3 SE@IN t 3 03 
INCREMENT # 1003 
TaM ts VSETUPFILESS 
DOING $2 Qs 
END % IF ALL SEARCHES DONE 


ELSE 


BEGIN 

WAITFOR %# JAMS 
Go TO EXITS 
END; 


END cASE 13 
END ALL CASES3 


GO TO ExIT3 


ERR3 


EXIT! 


GOERRCACSREG]s8)3 


END PROCEDURE MAKENEWFILES 


+e ROR URCEPESASCE RSPR SASE LER SESE CSR ERE ERE SEP ESE REECE E REE ESE ER SER ESSER SERRE EE DB 4 


PROCEDURE 


yr OOP RESPEC ES SCE RE RE CES ERLE CRE SEP RSS ECE S EOE ERE R ESR ESR EE SRE ERA RR SARS EE @ 4 


BEGIN 
LABEL 


LABEL 
REAL 


LISTIT CLOWsA)3 BOOLEAN LCWsS ARRAY ALO]; 


PRNTs CASES CASE4s ERR» EXITS 


NUMUSERS 
PREVWs WORDs TYPEs CHAR» PCe Ie Wi 


BOOLEAN LIBs SQUASHs CHANGES» NUMBERED» DISPLAYS 
STREAM PROCEDURE NOCHGMSG(WORK)3 


BEGIN 
DIS*WwORKS OSs#29LI1T"NO CHANGES SINCE LAST UPDATE."3 


END; 


CASE DOING OF 
BEGIN 


Bonen sesessons 


ae 


e . 
=z O 


enee 
BEGIN % DOING 


eeeeeaeehee ne een esaeeeeneseanteeeaeettenaseeteeene 


55098000 


55099000 
55100000 
55101000 
55102000 
55103000 
55104000 
55105000 
55106000 
55107000 
55108000 
55109000 
55110000 
55111000 
55112000 
55113000 
55114000 
55115000 
55116000 
55117000 
55118000 
55119000 
55120000 


AH HHH AHA HHA AT tt ot st 


0157 
0169 
0170 
0170 
Q173 
0175 
0176 
0178 
0182 
0185 
0187 
0188 
O49 
0192 
0193 
0193 
0193 
0193 
0194 
Q195 
0195 
0195 
0196 


START OF SEGMENT xweteenwaw 


94 IS 3 LONG» 
95121000 
35122000 
35123000 
99124000 
95125000 
55126000 

93 IS 205 LONG 


44 


e445 


56000000 
56000100 
56000200 
56000300 
56000400 
START OF SEGMENT 
56000450 
56000500 
56000600 
56000700 
56000800 
56000900 
56001000 


ee ees | 


96004300 
96001200 


96001300 
36001400 


~4+-44 


NEXT SEG 
0196 
0197 
0197 
0201 
0201 
0202 

NEXT SEG 


0061 
0061 
00634 
0064 
0061 
CARA aE 
0000 
0000 
0000 
0000 
0000 
0000 
0004 


0004 
0005 


0005 
0005 


94 
93 


95 


Rass eee oad eee S T4ibe 


PREVW $= #43 & ALLOW O AS PARAMETER, 
WORKC2I]8a@WORKC(CA4ISSUSERCODEs WORKOE 3] §eSOURCEFILE3S 
Pc 3s ACL SREG 8= BASE * ACBASEJI),FF3 
MATCHCVERBTABLECALSREG] .C999I) eCOs42)o"DISPLAY™) 
BEGIN DISPLAY %t@ TRUES GO TO PRNT3 END 
Ip IAM ® VPRINT THEN 
BEGIN 
PRATS3 IAM $3 VLIST3 
ACBASE] 43 03 
WRITEASTERISK &* TRUES 
ENDS 
Wrte213 
WHILE I LSS PC DO % PICK UP ALL PARAMETERS 
BEGIN INCCI)3 
WORD t# ALINCCSREG)I3 
IF WORDeC2%4) * QO THEN TYPE 38 0 * NUMBER OR *"NUMBER, 


ELSE 
IF WORD.C1%2)] = 3 THEN TYPE 32 1 % +NUMBER, 
LSE 
3 IF WORDeCLit2] * 1 THEN TYPE #8 2 % SPECIAL CHARACTER, 
ELSE 


TYPE 3 33 & ALPHA WORD, 
CASES! CASE TYPE OF 
BEGIN 
POO SHOE HEHE HOHE HEHEHE ORO O TE HOHE HOOPER OER OOOH OH OO REE 
BEGIN %& TYPE ® Os 
IF PREVW GEQ PREVWE#ABSCWORD) THEN GO ERR3 
WORKCWIJSSIF CHAR®"*"" THEN CHARS S*"ABSCWURD) ELSE WORDS 
IF INCCWI) GTR 30 THEN GO ERR3 
END CASE 03 
COREE HH OER EH OHHH REECE HEE PHOHE SEH H OCHS THERE HERO OH NOE 
GO TO ERRS % TYPE & 4 


POPUP UREEReeE PEPE rere reer Pe rreeererrrer rr rere rrr reer ee ee 


BEGIN & TYPE # 2, 


IF LIB t= (CHAR 3* WORDsCF) * "/" THEN 40501° 
NUMUSER? 30501" 
IF 1 * 2 LEQ PC THEN FIXUSER CIeAsEXI Tse TRUE) ELSE%0501" 
ELSE 40501" 
IF CHAR = "#" THEN SQUASH t= TRUE 
ELSE 
IF CHAR ® "#" THEN NUMBERED #2 TRUE 
ELSE 


IF CHAR # "$" THEN CHANGES % 8 TRUES 
END CASE 23 
POPUP ERUEEPEPELEPERE REE RETEE EEE E EET PEE EEE eee er 
BEGIN % TYPE 3 3, ALPHA WORD, 
WORD CASI] Iz. 03 
MATCHCWORDs "ENO ") 
BEGIN 
ACSREG) ta WORD ts TENS} 
TYPE %3% 03 
GW TO CASES; 
ENO3 
MATCH CWORDs "FILES ™) % LUST FILES 
BEGIN 
TAM %# VLFILESs 
COMMONCELL te PCwTs 


56001500 
56001600 
56001700 
56001710 
56001720 
56801800 
$6001900 
56002000 
56002100 
56002200 
56002300 
56002400 
56002500 
56002600 
56002700 
56002800 
56002900 
56003000 
56003300 
56003200 
56003300 
56003400 
56003500 
56003600 
56003700 
56003800 
56003900 
56004000 
56904100 
56004200 
56004300 
56004400 
56004500 
56004600 
56004700 
56004705 
56004710 
56004790 
56004800 
56004900 
56005000 
56005100 
56005200 
56005300 
56005400 
56005500 
56005600 
56005700 
56005800 
56005900 
56006000 
56006100 
§6006200 
56006300 
56006400 
56006500 
56006600 


at tt HH OO a a et te ttt ta tt A tt tt tt ts te tt st 


0005 
0006 
0010 
0043 
0013 
0024 
0024 
0022 
0023 
0025 
0027 
0027 
0028 
0029 
0030 
0032 
0034 
0035 
0037 
0038 
0040 
0041 
0042 
0043 
0043 
0043 
0043 
0045 
0050 
0052 
0052 
0052 
0053 
0053 
0053 
0058 
0056 
0060 
0064 
0063 
0063 
0065 
0066 
0068 
0069 
0069 
0069 
0074 
0074 
0073 
0074 
Q075 
0078 
0078 
0079 
0060 
0080 


: “aj 


_— 


GO EXIT3 56006700 T 0082 

ENO#s 56006800 T 0084 
MATCHCWORDs "TO ") CHAR ts ‘tan 56006900 T 0084 
ELSE 56007000 ¥ 0086 
MATCHCWORDes"CHANGES") CHANGES? ®TRUE 36007100 7 0086 
ELSE $6007200 7 QOO091 
MATCHCWORD p"SQUASHE") SQUASH 8 STRUE 96007300 T 0091 
ELSE 56007400 tT 0096 
MATCHCWORDs"NUMBERE") NUMBERED ta TRUE 56007500 T 0096 
ELSE §6007600 7 0404 
MATCHCWORDe"LIBRARY") BEGIN LIB#sTRUESGQ NUMUSER END ELSE 56007680 ¢c 0191 
BEGIN % NOT SPECIAL WORD = MUST BE FILE NAME, 96007700 T Q109 
WORKC3 + REALCLIG))] ta WORDS 56007800 rt 01409 

LIB §* FALSES 56007900 T OQO211 
WORKCe@)] ts 03 56008000 T O112 

END WANDLING FILE NAMES $6008100 fT 9113 

END OF CASE 33 26008200 T 9113 
Dome POOH ae Heenan eHOHEH enter eee eae heather eeHereenneerens 56008300 Tf 90113 
END ALL, CASES; 56008400 T Q113 


START OF SEGMENT «eneetnnee 96 


Roore Bua.n 


Busseess . 2 acy Tae -s¥ 140 


96 1S 5 LONGs aot SEG 95 
4 


END ALL PARAMETERS} 36008500 T O11 

IF WORKC3) = O THEN GOERRC"NOFILE "» 123 56008600 Y O114 
Ip (PCtswt*21)=0 THEN 56908700 7 O22 
BEGIN 56008800 fT Q123 
IF TPCQUNT = O THEN % UPDATE NOT REQUIRED 56008900 y 0124 
BEGIN 56009000 T 0125 
IF CHANGES THEN &% NO CHANGES IF TPCQUNT#O 56009100 T 0126 
BEGIN 56009200 T 0126 
NOCHGMSGCWORK)3 56009300 T O12? 
TWXOUTC(LL#WORK(O]22901)3 56009400 T O128 
IAM 33 03 54009500 T 0129 
GO TQ EXIT; 56009600 T 0130 
ENDS 56009700 T 0134 
END & IF TPCOUNT # 0 56009800 T 0131 

ELSE IF NOT CHANGES THEN ® LIST PROGM, NEEDS PARAMS 56009900 T 0131 
BEGIN 56010000 T 0132 
WORKC212 #3 O03 560190100 T 0132 
WORKC22] &% TENS & 3£1484682)3 56910200 T 0133 
MC 3m 23 56010300 T 0136 
END3 56010800 T 0136 
ENOs % IF PC 8 O §6010500 T 0136 
MOVE (16*WORDS»CTRANDBASELO)] »WORK(5))3 56010600 T 0136 
DOGHOUSECLL] ts WORKCO] t# OF 56910700 T 0139 
WORKELISSCLLASYSTEM) & PCC2784226) & RC CHANGES 20194751] §6010800 FT Oa, 
& RCSQUASH) (234781) & ROFILETYPE®8)C 384731) §6010900 fT O444 

& RENUMBERED 20494781) & ROWORKEC2] NEQ 096684734) 396911000 T 0147 
& RCDISPLAYIC784791] & RCMONITORBITIC9 84734393 56011010 T 91350 
Ip WORKC2) NE@ O AND TPCOUNT GTR O THEN WORK( 4) 99USERLOC3 56041020 y 01353 
DISKWRITECESP1 23 . §60411100 fT 90157 
RUNY 82 IF TPCOUNTFO OR WORK(2]50 THEN "QUIKLST” ELSE "LIST "3 56011200 T 0164 
RuUN2 8® "CANDE "4s ERRSW #3 USERCODES 56011300 T 0166 
Ip WORK{L2] NE@ O THEN & MEANS LIST THE WORKFILE. 36011400 T 0168 
BEGIN 56011500 T 0169 
WANT 3@ VCLOSEWORKTABLES 56011600 T 0170 
ERRSW ta FILENAME} 36011700 T O71 
DOING 33 13 §6011800 T 0172 

é % . ry e @ 4 ? 


IF TPCOUNT NEQ@ O THEN UPDATEBIT $8 15 % UPDATE IN PROGRESS 
IF ACBASE] NEQ@ O THEN % PRINT HEADING 

BEGIN 

TWXQUT CLL sWORK(O)s022)3 

GENFILINE CFILENAMEs TYPETABLELCFILETYPE) 23 

GQ TO CASES 


END; 
END % IF WORKFILE 
ELSE 
BEGIN & FILE NAME GIVEN 
FINDCLL&ITAMEC33%41879),0eWORKC3),WORKC4],USERCODE); 
ACBASE#1] t= WORKEC3]3 & SAVE FILE NAME 
TEMP ts DOING 38 33 
WAITFOR &* TAM) 
GO TO EXITS 
END} 
EnD CASE Qs 
LPO PCRUPEREPEREREPU REE ERee ere rere rer errr rere errr ere re eS ee ee ee ee 
BEGIN % DOING & i 
WANT tm VOISPATCHS ERRSW %# YSERCODE3 
DOING t= 23 
EnD CASE 13 
PUT PUPEPEE PERE EE TERETE ETERS E rere Tere ererreeerrerer ery ee ne ie ee 
BEGIN % DOING 2 2 
IF BOOLEANCUPDATEBIT) AND EVENTSEC1) = 1 THEN &% UPDATE OK 


BEGIN 
CANCELCKPTCAL#®J] 2% SOURCEFILE te MAKEFNC"1S"s LL 3 
END3 

TaMtaO}# IF BREAKORWRU THEN LINECLEARCLCWeALe) 23 

END CASE 23 


LPereePPPEreeEr eee RErErrerrerrererrrerrerrerr rr rere rr rer rr rrr rer sy yar 
BEGIN % DOING = 3 
Ie EVENTSCA) LEQ O THEN GOERRCACBASE+i1 J» 2)3 
TAM ts VDISPATCHS ERRSW t* USERCODES 
If ACBASE] NEQ O THEN %& PRINT HEADING 
BEGIN 
TWXOUTCLL*WORK(OJs092)3 
J 18 FNONLYCLOOJsPCoERRSWS MAL BASEF1 J) 2123 
TWXOUTCLL aL COJ*+I»sNOCRLF 3 
GO TO CASE43 
END3 
END CASE 33 


TOPPER PERSO CPEUEPEREeeeerererererrrerererrrrrrrerererrrr rrr sr rere rey 


BEGIN & DQING = 4 CDUMMY CASE) 


EQJMSGIBTRUES WRITEASTERISKISF ALSE3 
TIMEOFDAYCWORKECA Jo TIMECONVOTIME CL)» TRUE) )3 
WORKLOJERDATES TWXOUTCLELsWORK[O),1822)3 
END CASE 43 


POT ORUEPEEPTVEREPELePErerTerererererererererrrerrerrrrere ry rrr ee yi ire 


END ALL CASES; 


CASE4? 


GO EXIT; 

ERR$ GOERRCWORD,8)3 
EXIT! 

END OF LISTIT3 


56011900 
56012000 
56012100 
56012200 
56012300 
56012400 
56012500 
56012600 
56012700 
56012800 
56012900 
56013000 
$6013100 
56013200 
56013300 
56013400 
56013500 
56013600 
56013700 
56013800 
56013900 
560144000 
56014100 
56014200 
56014210 
96014220 
56014300 
56014310 
56014400 
56014500 
56014600 
56014700 
56014800 
56814900 
56015000 
56015100 
36015200 
56015300 
56015400 
56015500 
56015600 
56015700 
56015800 
96015900 
56016000 
56016100 
56016200 
56016300 
56016400 
56016500 
56016600 


START OF SEGMENT 


0172 
0177 
0178 
0178 
0180 
0182 
0187 
0187 
0187 
0187 
018? 
0191 
0493 
0494 
0195 
0196 
0396 
0196 
0196 
Q196 
0198 
0199 
0199 
0199 
0199 
0201 
0202 
0205 
0205 
0209 
0209 
0209 
0209 
0216 
0218 
0219 
0219 
0221 
0225 
0227 
0229 
Q229 
0229 
0429 
0229 
0230 
0234 
0237 
0240 
0240 
0240 


eeetewedtee 


AA HANA HAHAH OH st Ht st st tt st 9 st tt st tt tt et 41 


6 LONGs NEXT SEG 


36016700 
94016800 
760416900 
56017000 


T 0244 
T 0244 
T 0246 
tT 0247 


97 
99 


Asore 
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PROCEDURE EXECUTEC(LCWsA)3 BOOLEAN LCWS ARRAY ALOI]3_ 

OSE P ECTS CS CCC CCCOSS ESE SECS A LECCE SPSS LLALLTCLIECCCILA LLL rriiiriiriT 
BEGIN 
% HANOLER FOR "RUN"s"EXECUTE” AND "COMPILE" REQUESTS 
REAL TeMAXSREG3 


LABEL CASEL»CHKTYPEsRUNNSERRSEXITS 


DEFINE ; 
VERBWORD @ ACBASE)#>, % VERB "NAME" 
NAMEWOROCNAMEWORD1) & ALCBASE+1+NAMEWORDLJ#> & MFIDeF ID 
TYPEWORD ® ALBASE+3]#, % FILE TYPE 
COMMONWORD B® ACBASE+4)] #, % COMMON VALUE 
STACKWORD 3 ACBASE+5)] #, % STACK SIZE 
COREWORD = ACBASE+6)#, % CORE LIMIT 
PROCESSWORD ® ACBASE +7] #5 % PROCESS LIMIT 
TOWORD ® ALBASE+8)]%, % 1/0 LIMIT 
SEARCHTYPE * ACBASE+9) 4033815] #> % TYPE FROM HEADER 
SEARCHCOUNT * ALCBASE+9)].C1I6t4S)#> %® NUMBER OF SEARCHES 
SPECNAME = ALBASE+9] eCi7tollss * NO "O”" IN MFID %0502" 
SEARCHTOGGLE = ACBASE+9)] «COLIO1]#» % TOGGLE FOR CASE2 
COMPNAME = ALBASE+10)#> % SPECIAL COMPILER %0514% 
SAVESIZE oe 2) % WORDS USED ABOVE %0514= 
DEFINE TRANSFEREQUATJONVALUES = 

BEGIN 

COMMONVALUE $s COMMONWORD3 

STACKSIZE t= STACKWORDS 

CORESIZE ta COREWORD 

PROCESSLIMIT %= PROCESSWORD3 

IOLIMIT $= IQWORDS 

END#3 
DEFINE ERRORCERROR) = 

BEGIN 

MSGPTRISERRORIS GO TO ERRS 

EnD#3 

CASE DOING OF 
BEGIN 

BEGIN % CASE 0 = SYNTAX CHECK 
LABEL TYP! 
LABEL LIBNAMES ¥0501" 
REAL WORD} 
BOOLEAN WITHTOGGLE»LIBTOGGLES 
BOOLEAN OBJECTTOGGLE; %0502" 


BOOLEAN PROCEDURE FINONUMBERCA»MAXSREG)3 VALUE MAXSREG3 
REAL MAXSREGS ARRAY alQ]3 


254 LONG, 


57000000 
57001000 
27002000 
3709003000 
37004000 
37003000 
37006000 
37007000 


START OF SEGMENT 


57008000 
57009000 
57040000 
57011000 
57012000 
57013000 
57014000 
57015000 
57016000 
57017000 
57018000 
57019000 
57019500 
57020000 
57020500 
57021000 
57022000 
57023000 
57024000 
57025000 
57026000 
57027000 
57928000 
57029000 
57030000 
57031000 
57032000 
57033000 
57034000 
§7035000 
57036000 
$7037000 
57038000 
57039000 
57040000 
57041000 


START OF SEGMENT 


37041500 
37042000 
57043000 
37043500 
57044000 
57045000 
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NEXT SEG 


0064 
0061 
0064 
0064 
0064 
0064 
0064 
0064 
eekeeeeene 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
9000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
eaktwatan 
0000 
0000 
0000 
0000 
0000 
0000 


98 


99 


' 
® MAsope Sur pees eis ak. (SN 


BEGIN 
B® "SREG" WILL POINT TO THE LOCATION OF THE NUMBER IF THERE IS UNE 
X "FINONUMBER® WILL BE TRUE IF A NUMBER IS LOCATED 
% "s" CHARACTERS ARE SKIPPED COPTIONAL CHARACTERS) 
FINONUMBERSSFALSES % MARK AS ERROR AT START 
FOR SREGEsSREG+1 STEP 4 UNTIL MAXSREG DO 

BEGIN 

IF ACSREG].C14%5)80 THEN % NUMERIC INFUT 


BEGIN 
MAXSREG3303 FINDNUMBER#sTRUES 
END 
ELSE IF NOTCACSREG)eCit2)31 AND ACSREGIS"2") THEN MAXSREGI#O3 


ENOD3 
SREGtaSREG"1) % BACK UP FROM END OF “FOR STATEMENT 
EnO PROCEDURE FINONUMBERS 


CLEARCALCBASE+ J *SAVESIZE*1)3 4 ZERO QUT "STACK" WORDS 
MAXSREG t# ACSREGISBASE@ACBASEJ],018315) + SREGS 
VERBWORDS= VERBTABLELCACSREG1e69#9))4(6342)]3 ®& VERB NAME FROM TABLE 
FOR SREG ## SREG+1 STEP 1 UNTIL MAXSREG DO 
BEGIN % EXAMINE THE PARAMETERS 
IF ACSREG]eC3%3) GTR O THEN & ALPHABETIC STRING 
BEGIN 
WORD 82 ACSREGJ.(6842)3 
IF WITHTOGGLE THEN %& "WITH" PRECEEDED THIS WORD 
BEGIN 
MATCHCWORDs "LISTING" ) 
BEGIN 
MATCHCVERBWORDs"CUMPILE™) COMMONWORD#&"1 ELSE ERROR(8)3 
END 
ELSE 
BEGIN % CHECK LABEL EQUATION VALUES 
IF NOT FINONUMBERCAsMAXSREG) THEN ERROR(8)3 
MATCHCWORDs"STACK ") STACKWORD ¢% ACSREGIe036812) ELSE 
MATCHCWORDs "CORE ") COREWORD $e ACSREG]e033815) ELSE 


MATCHCWORDs"PROCESS") PROCESSWORDis ACSREG)*60 ELSE 
MATCHCWORDs "10 ") TQWORD te ALSREG) X60 ELSE 
MATCHCWORDe"COMMON ") COMMONWORD t= ACSREG) ELSE 


GOERRCWORDs8)3 &% NONE OF THE ABOVE 
ENDS & CHECKING LABEL EQUATION VALUES 
END % IF WITHTOGGLE 
ELSE MATCHCWORD? "WITH ") WITHTOGGLE 8# TRUE 
ELSE MATCHCWORDs "LIBRARY" ) 
BEGIN 
LIBNAME: 20501 
IF LIBTOGGLE OR NAMEWORDLO)s0 THEN ERROR(8)3 
LIBTOGGLE t* TRUE; 
IF SREG + 2 LEQ MAXSREG THEN FIXUSER (TsAsEXITsFALSE)320501" 


END . | 

ELSE MATCH CWORDs"OBYECT ) 40502" 
BEGIN 30502 
MATCH (VERBWORDe "EXECUTE" ) 40502" 


IF NAMEWORD (0) # QO THEN ERROR (8) 2MFID ALREADY GIVEN 


397046000 
57047000 
97048000 
57049000 
97950000 
97051000 
97052000 
97053000 
57054000 
97055000 
37056000 
37057000 
579058000 
57059000 
57060000 


97061000 
37062000 
57063000 
97064000 
3976635000 
97066000 
37067000 
57068000 
57069000 
97070000 
37071000 
37972000 
97073000 
97074000 
537075000 
97076000 
37077000 
57078000 
37979000 
37080000 
37081000 
97062000 
97083000 
57084000 
97083000 
57086000 
97087000 
37088000 
57089000 
379089500 
27990000 
37091000 
379091190 
37092000 
37092100 
37092200 
97092300 
57092400 


ee eee 


NOON OF OAAOA HAAN AMAA AAA Ae a tat st tt 


0000 
0000 
Q000 
0000 
0000 
0000 
0005 
0005 
0006 
0007 
0008 
0008 
0043 
0013 
0015 


0017 
0017 
0020 
0023 
0027 
0034 
0034 
0033 
0033 
0035 
0036 
0036 
0036 
00368 
0049 
0049 
0049 
0050 
0055 
0060 
0066 
0072 
0078 
0084 
0092 
0092 
0092 
0095 
0095 
0099 
0099 
0105 
0106 
Q414 
O44 
0114 
0115 
0116 


2 tity Ire 5¥ T4027 . 


sore Busine 2 Foams 


a 


ELSE OBVECTTOGGLE ta TRUE 40502" 
ELSE ERROR (8) %0502« 
END 30302" 
ELSE MATCH CWORD»"SPECIAL™) IF TYPEWORD EQL O THEN 20514" 

TYPEWORD8399 ELSE ERROR (8) 405149 
ELSE 


BEGIN % CHECK FOR FILE TYPESsFILE NAMES 
IF. TisFINDAWORDCACSREGIsTYPETABLELL J »sNUMOFTYPES) 40 THEN 
BEGIN % WORD IS A FILETYPE 


TYP! IF TYPEWORD NEQ 0 THEN ERROR(8)s % DUP TYPE 
IF NOT BOOLEANCTeb1!1)) THEN GOERRC"TYPE 219) 
TYPEWORDE=ABS(T)3 


IF CHECKGITCTYPEWORD@1e/RESTRICTEDLANGUAGES) THEN 
ERRORCA9)3 &% USER IS NOT PERMITTED THIS LANGUAGE 
END % IF FILE TYPE 

ELSE 


IF TYPEWORD EQL 99 THEN IF COMPNAME EQL O THEN s0514" 
COMPNAME f= WORD ELSE ERROR (8) ELSE 20514" 

BEGIN &% CHECK FILE NAMES 

IF NAMEWORDCREALCLIBTOGGLE)) NEQ O THEN ERROR(8)3 

IF NOT LIBTOGGLE THEN % MFID» 6 CHRS@MAXIMUM 

IF NOT OBJECTTOGGLE THEN 30502° 


IF WORD.6C4296] NEQ ™ " THEN ERROR(42)3 *% 6 CHRS MAX 
NAME WOROCREALCLIBTOGGLE) )$ swORD} 
END * FILE NAME CHECK 
END % FILE TYPE OR FILE NAME 
END % ALPHABETIC STRING 
ELSE IF ACSREGIJ="/" THEN 
GO TO LIBNAME 40501" 
ELSE IF ACSREGIs"$" THEN % COMPILER NAME ABBREVIATION 
IN 
Bee REG=MAXSREG THEN ERROR(8) ELSE WORDSS( ALSREGSSSREG41) 23 
IF TReFINDALETTERCWORDs TYPE TABLELC1]»NUMOF TYPES) 40 THEN GO TYP3 
ERROR(20)3 % NOT FILE TYPES 


END 
ELSE ERROR(8)4 % NO OTHER ENTRIES ACCEPTABLE 
END SREG OOP; 


TEMP t= SAVESIZEsS % SAVE SPACE IN "STACK" FOR VARIABLES 


IF OBVJECTTOGGLE THEN 405028 
IF NAMEWORD (0] = O THEN GOERR C™INCOMPL 96) 40502" 
ELSE SPECNAME ts 43 40502" 

IF TYPEWORD EQL 99 THEN %05 44" 
IF COMPNAME EQL 0 THEN GOERR ("INCOMPL"6)3 20514" 


IF NaAMEWORDCO)20 THEN % DEFAULT IS THE WORK FILE 
If FILENAME®O THEN GOERRC "NO FILE 4 )3 

IF TPCOUNT NE@ 0 THEN.% WORK FILE HAS BEEN ALTERED 
BEGIN 
WANT # VUPDATES 
LYTOUTC"WAIT. “eNOCRLF)3 
DOING %# 43 
Go TO EXIT; 


ENDs 
GO To CASE13 & NO UPDATE REQUIRED 
END CASE 03 


TEPC CET E ERT CTC C TET CURT ERE CR CTT ET PET CCR CE TORE RO Cee ere ee 


57092500 
57092600 
57092700 
57092800 
57092900 
57093000 
57094000 
57095000 
57896000 
57097000 
57998000 
57099000 
57100000 
57101000 
57102000 
57103000 
57103100 
57103200 
57104000 
57105000 
57106000 
57106500 
57107000 
57108000 
57109000 
57110000 
57111000 
57112000 
57113000 
57117000 
57118000 
57119000 
57120000 
57121000 
57122000 
57123000 
57124000 
57125000 
57126000 
57126100 
57126200 


- 37126300 


Is 


37126400 
97126500 
37127000 
37128000 
97129000 
97130000 
397131000 
97132000 
57133000 
57134000 
97135000 
37136000 
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$7137000 T 
268 LONGs 


57138000 


T 


0123 
0126 
0130 
0130 
Q13a 
0142 
0142 
0143 
0145 
0146 
0152 
0160 
0162 
0165 
0169 
0169 
0169 
0174 
0180 
0184 
0187 
0187 
0188 
0194 
0196 
0196 
0196 
0196 
0198 
0198 
0499 
0200 
0207 
02140 
0214 
O24 
0218 
0218 
0218 
0219 
Q219 
0228 
0234 
0235 
0244 
0246 
0254 
0256 
0256 
0257 
02538 
0259 
0264 
0264 
0263 

NEXT SEG 
0002 


98 


r) : : , “« ‘ a 
BEGIN @ CASE 1 = WORKFILE UPDATED 
7 CASE1! 
MATCHCVERBWORDs"COMPILE™) X COMPILE ONLY 
BEGIN 
If NAMEWORDCOJ80 THEN & COMPILE THE WORKFILE 
BEGIN 
NAMEWORDCOJSSSOURCEFILES 
NAMEWOROCIIJISUSERCODES 
IF TYPEWORD#0 THEN &% FILE TYPE NOT SPECIFIED 
BEGIN 
TYPEWORD $= FILETYPES & USE WORK FILE TYPE 
CHKTYPES IF TYPEWORD NEQ 99 THEN 4035140 
~ BEGIN 20514 


IF NOT BOOLEAN (CTSaTYPETABLE CTYPEWORDI2eC131]) THEN %0514= 
GOERRC"TYPE %%49)3 % NOT COMPILER TYPE 

IF CHECKBITCTYPEWORD™1»RESTRICTEDLANGUAGES) THEN 
GOERR(T.C6842)049)3 

ENDS £0544° 

ENDS 

END % IF WORKFILE OR BRANCH FROM BELOW 
ELSE IF SEARCHCOUNTSO THEN % DIRECTORY SEARCH NOT EXECUTED 


BEGIN 
IF NAMEWORDC1] NE@ O THEN ®% CHECK OUTSIOE FILE 


BEGIN 
MATCHCNAMEWORD( 4) 2USERCODE) ELSE GOERRCNAMEWORD(1)98)3 
BRNO 
ELSE NAMEWORDE1]3sUSERCODE 
FINDCLL&TAMC 33841297 J 0 >NAMEWORDLOJ »+NAMEWORDED 1] 2USERCODE)3 
SEARCHTOGGLE##14 % STOP PROCESSING ON SEARCH ERROR 
SEARCHCOUNT 38 13 
DOING 33 23 
WAITFOR $2 IAM} 
GO TO EXIT3 
END % IF OFRECTORY SEARCH WAS NOT EXECUTED 
ELSE 
. BEGIN % DIRECTORY SEARCH FINISHED» FILE IS IN DIRECTORY 
IF TYPEWORD = Q THEN TYPEWORD 3% SEARCHTYPES % FROM HEADER 
GO TO CHKTYPEs 
ENOsS % IF SEARCH WAS EXECUTED SUCCESSFULLY 


% CALL OUT THE COMPILER 


RUN1 $8 NAMEWORD(OJ3 

RyN2talF COMPNAME EQL O THEN TYPETABLE CTYPEWORDIJeC6142) ELSE 
COMPNAME3 a051.4° 

TRANSFEREQUATIONVALUESS % LABEL EQUATION ENTRIES 

WANT 38 VCOMPILEITS 

DOING ts 33 % RETURN AFTER COMPILING 

Go TO EXITS 

EnDsS & IF COMPILING 


® "RUN" OR “EXECUTE” VERB 


IF NaMEWORD(QJ]"0 THEN % EXECUTE THE WORK FILE 
BEGIN 
NAMEWORD(O] §=SQURCEFILES 
NAMEWOROL1)!=USERCODES 


57139000 
57140000 
57141000 
57142000 
57143000 
57144000 
57145000 
57146000 
57147000 
57148000 
57149000 
57150000 
57150100 
57150200 
57151000 
57151100 
57151200 
57151300 
57152000 
57153000 
57454000 
57155000 
57156000 
57157000 
57158000 
57159000 
57160000 
57161000 
57162000 
57163000 
57164000 


. 97165000 


37166000 
397167000 
97168000 
37169000 
37170000 
97171000 
597172000 
37173000 
57174000 
57175000 
57176000 
97177000 
37177050 
97178000 
37179000 
97180000 
57181000 
97182000 
537183000 
37184000 
97182000 
37186000 
57187000 
37188000 
37189000 
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0002 
0002 
0003 
0004 
0005 
Q007 
Q007 
0040 
0012 
0014 
0014 
0016 
00148 
0019 
00213 
0029 
0032 
Q038 
0038 
0038 
0036 
0040 
OQ44 
0043 
0043 
0053 
0053 
0056 
0062 
0065 
0068 
0068 
0069 
0070 
0070 
0070 
0070 
0075 
0076 
0076 
0076 
0076 
0076 
00786 
0084 
0085 
0093 
0093 
0094 
0095 
0095 
0095 
0095 
0095 
0097 
0097 
0100 


Sse ite ae sue : 


IF TYPEWORD#O THEN TYPEWORDI=FILETYPES % USE WORK FILE TYPE 
If NOT GOODOBY THEN % NOT THE CORRECT OBJECT FILE 
BEGIN 
MATCHCVERBWORD» EXECUTE") GOERRC"NO OBUe917)3 
SEARCHCOUNT##343 % AVOID DIRECTORY SEARCH AFTER COMPILE 
GO TO CHKTYPES % COMPILE THE SOURCE 
ENDS X% IF NOT A GOOD OBVECT FILE 
NAMEWORDCO]$=" "ROBJECTFILEL6%12336)3 % IN CASE SOURCE REMOVED 
Go TO RUNNS % OBVECT FILE IS OK 
ENO % IF THE WORKFILE 
ELSE IF SEARCHCOUNT®0 THEN % SEARCH FOR OBJECT FILE FIRST 
BEGIN 
IF NAMEWORDL1]#0 THEN NAMEWORD(1]:3USERCODES % FIQ NOT SPECIFIED 
EIND (LL@IAM C3384137),01F SPECNAME * 1 THEN NAMEWORD [0] ELSE 
NAMEWORD (0},(6136)»+NAMEWORD CiJ*USERCODE)3 %0502= 
SEARCHCOUNT t= 13 
DOING t= 23 
WAITFOR t= IAMS 
Go TO EXITS 
END % INITIATING SEARCH FOR OBvECT 
ELSE IF SRARCHCOUNTS1 THEN % RESULTS OF OBVECT SEARCH 


BEGIN 

If EVENTSC1] LE@ OQ THEN % NO QBVECT IN OITRECTORY 
BEGIN 
MATCHCNAMEWORODCL Js, USERCODE) ELSE GOERRC NO OBve%e17)3 
MATCHCVERBWORDse "EXECUTE") GQERRCWNO OBe"*e 1728 
FINDCLLSIAMEC 3394427) 50s NAMEWORDLO]*NAMEWORDLIIJ*USERCUODE)3 
SEARCHCOUNT %= 23 
SEARCHTOGGLE %* 13 %8 STOP PROCESSING IF NO SUURCE 
DOING #8 23 
WAITFOR &@ JAM} 
GQ TO EXITS 
ENDS & IF OBYVECT VERSION NOT ON DISK 

GO TO RUNN? & OBYECT FILE ON DISK 

END & RESULTS OF OQBVECT SEARCH 

ELSE IF SEARCHCOUNT#2 THEN % SOURCE IS IN DIRECTORY 

BEGIN 

If TYPEWGRO#O0 THEN TYPEWORODSSSEARCHTYPES 

GO TO GHKTYPEs &% COMPILE THE SOURCE 

ENDS} & IF SOURCE WAS PRESENT IN OJRECTORY 


RUNN& 


RUNY t= YR SPECNAME ® 1 THEN NAMEWORD (0) ELSE NAMEWORD [0).,(6236]3 
RUN2:SNAMEWORD(1]3 

TRANSFEREQUATIONVALUESs % LABEL EQUATION VALUES 

WANT 8 VDISPATCH3 

TAM 3:3 O$3 

GO To EXIT3 

END cASE 13 


OPER Pe CE TR ATER E CACC TE CRT CeCe CPE TEE Oe ES ee ee ee 


BEGIN & CASE 2 * RESULTS OF DIRECTORY SEARCH 

IF BOOLEANCSEARCHTOGGLE) THEN % STOP PROCESSING ON NEGATIVE SEARCH 
If EVENTS(C1) NEQ 7 THEN GOERRCNAMEWORDE[(O]s2)3 &% NOT IN LIBRARY 

IF (CT#sEVENTS(21,03696]) GTR NUMOFTYPES THEN Ti#Q3 

SEARCHTYPEt#T 3 

GO To CASEL3 

END CASE 23 


IEEE EPORESTE ESTEE REET EEC EP OR PEPeLerere reer reer reer re erie err eee eee 


57190000 
57191000 
57192000 
57192100 
57193000 
57194000 
57195000 
57196000 
57197000 
57198000 
57199000 
57200000 
57201000 
57202000 
57202500 
57203000 
57204000 
57205000 
57206000 
57207000 
57208000 
57209000 
57~10000 
57211000 
57212000 
57212100 
57213000 
57214000 
57215000 
57216000 
57217000 
57218000 
57219000 
57220000 
57221000 
57222000 
57223000 
57224000 
57225000 
57226000 
57227000 
57228000 
57229000 
57230000 
57231000 
57232000 
57233000 
$7234000 
57235000 
57236000 
57237000 
57238000 
57839000 
57240000 
57241000 
57242000 
57243000 


AAA HANA HA tt 8 Ht tt Ht tt a tt st tt A A Oo A a te st st tt se 


0102 
0106 
0107 
0108 
0117 
O119 
0120 
0120 
0123 
0124 
0124 
0126 
0127 
0432 
0132 
0143 
0145 
0146 
0447 
0147 
0147 
0150 
015% 
0152 
0152 
0162 
O17 4 
0177 
0179 
0182 
0183 
0184 
0184 
0184 
0185 
0185 
0487 
0188 
0193 
0193 
0193 
0194 
0204 
0204 
0211 
O2i2 
0213 
0213 
0214 
0214 
0214 
0215 
0223 
0226 
0229 
0229 
0230 


a? 


i Rocce Busines: ca mis, bal fe 


0230 


BEGIN % cASE 3 * AFTER COMPILING 57244000 T 
MATCHCNAMEWORD[OJsSOURCEFILE) 397245000 T 0230 
BEGIN % COMPILED THE WORKFILE 397246000 T 0230 
OBVJECTFILES sSOURCEFILE.(6336]3 97247000 T Q233 
GoOoDGBY ts TRUES 57248000 T 0235 
CANCEL CKPTCAL 4) 23 57249000 T 0237 
END3 57250000 T 0239 
MATCHCVERBWORDs”*COMPILE"™) ELSE GO TO RUNN} 57251000 T 0239 
IAM 33 Q3 97252000 T 0244 
END CASE 33 597253000 T 0242 
END ALL CASES; 537254000 T 0242 
START OF SEGMENT weet ewnwe 
190 18 5 LONG», NEXT SEG 
97255000 T 0243 
GO TO ExIT3 57256000 T 0243 
57257000 Tt 0245 
ERR: ERRSWEHAALSREG]3 WANTE#MWAITFORS 203 TAMSSVERROR3 97258000 T QO245 
57259000 T 0248 
EXIT? 57260000 T 0248 
END PROCEDURE EXECUTES 297261000 T 0248 
98 18 254 LONGs NEXT SEG 
PERC ECER ECCS ESE C CEES EERE REPRE CERES ESE E PCS R EERE EEE EERE EES EE EER EERE EES | 58000000 T 0061 
PROCEDURE LOADITCLCWsA)s BOOLEAN LCws ARRAY ALO]3 58001000 T 0061 
PERE RREETECEC LATE CASA ACA EOE ESTEE ESESCOSCCCAECECSS CESS ECE CLASS ECO SLOL SS} 58002000 T 0064 
BEGIN 58003000 T 0064 
DEFINE NAMEWORD = ACBASE) #, 58004000 T 0064 
START OF SEGMENT wvatttatas 
TYPEWORDO = ACBASE+1)] 4,» 58003000 T 0000 
RECORDCOUNT 3 ACBASE+2)#> 38006000 T 9000 
OBJECTNAME *® ACBASE+3)#, 538007000 T 0000 
DISKTOGGLE # ACBASE+4]#, 58008000 T 0000 
SAVESIZE a 5%} 38009000 Tt 0000 
98010000 T 9000 
DEFINE ERRCERR1 »ERR2)= 98041000 7 9000 
BEGIN 58012000 Tr 0000 
ERRSWIsSERR1Z MSGPTRIFERR2Z3 GO TO ERROR} 580413900 T Q000 
END#3 §$8014000 T 0000 
: 38013000 T 0000 
LABEL CASE3*e ERROGRe EXITS §8016000 T 0000 
REAL T3 58017000 rt 0000 
58018000 T 0000 
CASE DOING OF 38019000 tT 90000 
BEGIN 58020000 T 0000 
BEGIN % CASE 0 = SYNTAX CHECK 28021000 r 9000 
If FILENAME NEQ O THEN 986022000 T 0000 
IF TPCOUNT NEQ@ O OR FILENAME NEG SQURCEFILE THEN §8023000 T 0001 
IF NOT NOSAVE THEN 58024000 T 0005 
BEGIN 56025000 Tf 0006 
NOSAVERSTRUES ERRC"NQ SAVES 48)3 38026000 T 0007 
END3 38027000 ry 0013 
SREG t# BASE * ACBASEJ3 586028000 fT 90013 
BLEARCACBASE J eSAVESIZE#1)3 58029000 T O014 
TEMP 33 SAVESIZE} 58930000 T 0016 


100 
98 


101 


14.27 


weincss Farms. int. $v 


wore Be 


—- 


IF ACSREGJ]eC18315] NE@ 1 THEN ERR( "NAME #2603 
If CTRSACSREGESSREGO1),0393])50 THEN ERRC"NAME "2603 
Ip T GTR 6 THEN ERR(0s42)3 


IF FINDAWORDCACSREG) sRESWROTABLEC1 J »NUMOFRESWROS)40 THEN ERR(008)3 


NAMEWORD t# ALSREG).CONM2)4 

FINDCLL&IAMEC 3384187 20 sNAMEWORD sUSERCODE sUSERCODE D3 
DOING I 43 

WAITFOR t= TAM) 

END CASE 03 


PEEP RUPERUE EERE EE UEE EP Ee Pee ePereeary eee rey eee ee ee ee ee ee 


BEGIN X% CASE 1 * RESULTS OF SEARCH FOR SOURCE FILE 

If EVENTSC1] NEQ 7 THEN ERRCNAMEWORDs 223 

IF (CTEMEVENTSLC23-03686)) LEQ NUMOFTYPES THEN TYPEWORDS#T3 
ReCQORDGOUNT $8 EVENTSC3) + 12 % RECORD COUNT 

IF NOT CONCISE THEN GENFILINECNAMEWORDsTYPETABLELTYPEWORD ) 23 
FINDCLLSITAMC 3384437 J eOeNAMEWORD .(6136] 2 USERCODEsUSERCODE)3 
WAITFOR ta JAM) 

DGING 1% 23 

EnD CASE 13 


Per Perererrrererererererererere ry rere eee ee eee a eee ee ee ee 


BEGIN % CASE 2 = RESULTS OF SEARCH FOR OBVECT FILE OR SETUPF 


IF NOT BOGLEANCOISKTOGGLE) THEN 
IF EVENTSC11#7 THEN OBVECTNAME t# NAMEWORD.[6336)3 
IF FILGSOK THEN CANCELCKPTCAL*#)) ELSE 


BEGIN 
IF NOT BOOLEANCOISKTOGGLE) THEN & NO RETRY FOR DISK 


BEGIN 
DISKTOGGLE 3 13 
WANT 8= VSETUPFILES; 
GO EXITs 
END 
ELSE 
* VOID a CARD 
ERR("™NO DISK"s46)3 % NO USER DISK 
END4 
IF NOT CONCISE THEN LITOUTC"LOADING™»NOCRLF 3 
If TYPEWORD © 8 THEN % TYPE DATA FILE 
BEGIN 
IF NOT CONCISE THEN 
BEGIN 
TWXOUTCLL aL CO]20s2)3 
LCO) t*® "ND LOAD" & "EMC 184385)5 
TWXOUTCL LLCO] +601 )3 
NO} 


ENO 

WRITEASTERISK && TRUES 

GO TO CASE33 

ENDS 
WORKO3] $= NAMEWORDS 
WORK(CO] $8 O38 
WORK(4) t= (CLESSYSTEM) & CONCISEBIT(834781]3 
WORK(C2] %# WORK(G)] I= ERRSW ta USERCODES 
RUNL :* "LOAD “3 
RUN2 $= "CANOE "3 
WANT $@ VDISPATCH3 
DISKWRITECESP1 23 
WRITEASTERISK t@ CONCISES 
EQUMSG te NOT CONCISE; 


ene 
TILES 


40406" 


40406" 


36031000 
58032000 
538033000 
58034000 
398035000 
38036000 
58037000 
38038000 
398039000 
58040000 
38041000 
98942000 
38043000 
58044000 
98945000 
58046000 
38047000 
58048000 
98049000 
28050000 
58051000 
98052000 


38953000 | 


58054000 
58055000 
58056000 
58057000 
58058000 
58059000 
58060000 
58061000 
58062000 
58063000 
58064000 
58067000 
58068000 
58069000 
38070000 
58071000 
58072000 
58073000 
58074000 
58075000 
58076000 
58077000 
58078000 
§8979000 
58080000 
58081000 
58082000 
58983000 
58884000 
56085000 
58986000 
58987000 
58068000 
58089000 
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0017 
0023 
0030 
0033 
0039 
0044 
0045 
Q046 
0047 
0047 
0047 
0047 
005@2 
0056 
0058 
0062 
0067 
00686 
0068 
0069 
0069 
0069 
0070 
0075 
0077 
0078 
0079 
0079 
0064 
0082 
0082 
0082 
0082 
0082 
0087 
0087 
0089 
0094 
0094 
0093 
0093 
0095 
0097 
0999 
0099 
0103 
0195 
0305 
0106 
0107 
Ol11 
O14 
0115 
0116 
0117 
0421 
0124 


* ” > & we ts, ry ; 

GOODOBJI eBCSOQURCEFILES sFILENAME St aF I LET YPE# @LASTRECORDS 20)3 398090000 T 0127 

DOING $8 33 398891000 T Q133 

GQ TO EX[IT3 38092000 T O134 

END CASE 23 38093000 fT 0137 

Pere eUCEPESUPUUEE PERE CeRUrerererrerererrererer ere errr rarer rer rrr rrr 58994000 T 0137 

BEGIN © CASE 3 * RETURN AFTER LOAD OR BRANCH ON DATA FILE 398095000 T 0137 

Ir COMMONCELLe£2t3)"0 THEN % LOAD WAS OK 58895100 Tt 0137 

BEGIN 396695200 T 0139 

CASE33 58096000 T 01439 

FILENAME $s SOURCEFILE &%= NAMEWORD? 58097000 T 0140 

FILETYPE ta TYPEWORDs §$8098000 tT 0142 

GOOOOBY $s COBJECTFILESsOBYECTNAME) NEQ QO3 538099000 T O144 

LASTRECORD % RECQRDCOQUNTS 58100000 T O149 

NOSAVE t= FALSES 96101000 Tf QO1431 

SEQLAST $= SEQIN te QO; §8102000 T 0153 

INCREMENT $%= 1003 396103000 Tf 0155 

TISMAKEFNC™AS* LL 3 58104000 T 0156 

MAKEFILECLLGISCISI4L IT Jodo Te USERCODE*FILETYPE?0)3 386105000 7 0158 

CANCELCKPTCAL#J23 % SAVE THE NAME OF THE WORK FILE 38105010 T 01462 

END# 36105100 T 0163 

IAM 3H Q3 398106000 T 0163 

EnD CASE 33 58107000 T 0164 

ENO ALL CASES 98108000 T Qj164 
START OF SEGMENT seavtewewe 
192 IS 5S LONG» NEXT SEG 

GO TO ExIT3 94109000 YT 0165 

ERRORS 386119000 T 0165 

IF ERRSWsO THEN ERRSWieZACSREGI3 38111000 rt 0166 

IAM 22 VERROR? 98112000 T 0168 

WANT 8s WAITFOR $2 03 98113000 7 0169 

EXIT!s 38114000 T 0170 

END PROCEDURE LOADIT} 398415000 fr O74 
101 IS 174 LONGs NEXT SEG 

+ ECCS USCC ECE CSS SE LE PETE EES PEPER EPEC CSCO SS OSC RCS CCCOS OS SSOCL SSIS Se 59900000 T Q064 

PROCEDURE SAVERCLCWeA)s BOOLEAN LCWS ARRAY ALO)3 99000100 T 0064 

pC SPCC E SSCS ELS SPSS CCP PCL ESSE ECC CES SSI CCS CCC LOSES CLES SCL eL ee eS 59900200 T 0064 

BEGIN 99900300 T 0064 

LABEL ERR» CASEL>FINISHEDSEXITS 59800400 FT 0064 
START OF SEGMENT xvetvrntws 

REAL TeF3 539000500 T 0000 

DEFINE pEFAULTSAVEFACTOR = 7%; 399000600 fT 0000 

CASE DOING OF 939900700 Tt 90000 

BEGIN 39000800 Tr 9000 

BEGIN ® CASE 0 * SYNTAX ANALYSIS 59000900 T 0000 

IF FILENAME®O THEN % NO WORK FILE 599001000 fr 9000 

BEGIN 39001100 T 0004 

ERRSWi="NO FILE"S MSGPTR ta 13 GO TO ERR} 39001200 tT 0002 

END3 39001300 T 0006 

If (CT8zACSREGSBBASE@ACBASEI].016315]7) GTR 1 THEN & TOO MANY PARAMS 29001400 T 0006 

BEGIN 39001500 T Q009 

ERRSWts ACSREG+2)3 MSGPTR 33 43 GO TO ERR} 539001600 T 0010 

END3 39901700 T 0013 

IF T # 0 THEN ACBASE] ¢ "1 ELSE 40105° 59001600 P 0013 


102 
101 


103 


5 7 i 
e Rees hie meen: By ae BY 7 


Be 


Bee 
CASEL3 


Ree 


FINISH 


Ron 


If (ACBASEJ)t2ACSREG+1)).0195) NEQ O THEN &% NOT UNSIGNED NUMBER 


BEGIN 
ERRSWisA(BASEJs MSGPTRi243 GO TO ERR; 
END3 
TEMP 82 13 
IF TPCBUNT = O THEN GO TO CASE13 & WORK FILE ALREADY UPDATED 
WANT 32 VUPDATE3 
DOING ta 13 
LrTOUTC"WAIT™ “sNOCRLF)3 
ENDS % CASE O 


Set Peet Gaeta FeeeHeveeeeeteHne Hae Reeves eaeaatene Phen ateHeeaenatnneane 


BEGIN % CASE 1 * WORKFILE UPDATED 


IF NOT CONCISE THEN GENFILINECFILENAME * TYPETABLECFILETYPE))3 
MATCHCFILENAME*sSOURCEF ILE) % FILE ALREADY SAVED 
BEGIN 
FINDCLLGIAMEC 3384137) 50sF TLENAMEsUSERCODEsUSERCODE D3 
DOING $5 33 
WAITFOR %# IAM} 
END 
ELSE 
BEGIN 
Te aL L&VMCPMSG(3394137)3 
REPLACE (Tse SOURCEFILEsUSERCODEsFILENAMEs USERCUDEs 
(F © IF ACBASEY < Q THEN O ELSE ALBASE)) & 40105" 
FILETYPEC32%4236)] & UNLOCKTOGGLE (34847811) 30105° 
IF GOODOBJ THEN 
REPLACEC Ts SOURCEF ILE. C6336) 2USERCODE> 
FILENAME sf6836)eUSERCODE? 
FaFILETYPEL 3294236 J&UNLOCKTOGGLE(3124731)) 
ELSE REMOVEFILECTsFILENAME C6836) sUSERCODE)S 
WANT ESWAITFORE ®VMCPMSG3 
DOING s# PARAM %= LIBMSGCTR $8 23 
LIBMTNCE #&% TRUES 
END: 
EnDs % CASE i 
Ce POH e HH eat HMH EHH SHEE REA HH HHHH EHH RHR HEHEHE RE eH eRnH EHH Eee 
BEGIN & CASE 2 = RESULTS OF FILE REPLACE 
If ACBASE+1) NEQ 7 THEN &% NOT REPLACED » PROBABLY FILE IN USE 
BEGIN 
ERRSWis"IGNORED"S MSGPTR ts 223; GO TO ERR; 
END3 
Ts@MAKEFN( 1S "LL )3 
MAKEFILECLL&L3ZC3I3SIGL 87] ele ToUSERCODEsFILETYPEs O23 
SQURCERILESsFILENAMES 
If GOODOBY THEN QOBVECTFILE teFTLENAME.(6336)3 
IF FILESOK THEN CANCELCKPTCAL*] )3 
Ep? 
LITOUTC™SAVED. “e2"CONCISEBIT)2 
WRITEASTERISK t& FALSE; 
IAM &s Q3 
ENDS % CASE 2 
Me teaeeteaaeeeeteentaeataee eee heee tee te PeeeteaeeeReoeHheteenneatenner 
BEGIN % CASE 3 * RESULTS OF OIRECTORY SEARCH 
IF EVENTS(C17 LEG O THEN 
BEGIN 
ERRSW t* FILENAMES MSGPTR 8% 673 GO TO ERR3 


599001900 


99902000 
39802100 
39902200 
99002300 
539902400 
599902500 
39002600 
39902700 
39002800 
59002900 
39003000 
99003100 
39003200 
39903300 
599903400 
99003500 
399003600 
399003700 
539003800 
539003900 
399004000 
39004400 
59804300 
998004400 
599004450 
99004500 
99804600 
99904700 
99004710 
39804800 
99904900 
3539005000 
399005100 
99005200 
39005300 
39805400 
99005500 
39005600 
399005700 
539005800 
59005900 
39006000 
539806100 
99006200 
99906300 
59906400 
539006500 
29906600 
99006700 
39006800 
59006900 
39007000 
59007400 
399007200 
39007300 
39007400 
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0016 


0019 
0020 
0022 
0022 
0023 
0025 
0026 
0027 
0028 
0028 
0028 
0028 
0029 
0032 
0034 
0035 
0039 
0039 
0040 
0040 
0040 
0043 
0044 
0044 
0044 
0054 
Q054 
0054 
0054 
0054 
0066 
0067 
0069 
0072 
0072 
0072 
0072 
0072 
0074 
0074 
0078 
0078 
O07T9 
0083 
0064 
0088 
0090 
O09, 
0093 
0095 
Q096 
0096 
0096 
0096 
0097 
0098 


BinetS (iets, ait. fe vas 


sre Busi 


END} 
IF EVENTS(C2],03686) NEQ FILETYPE OR ALTBASE] GEQ O OR 
BOOLEANCUNLUCKTOGGLE) THEN % CHANGE HEADER 


BEGIN 

LLDISKREAD ts ACBASE+1] 8% EVENTS£23e018815]3 &% HEADER ADDRESS 
WANT %# VOISKREAD3 

TEMP ta 23 

DOING #2 43 


END 
ELSE GO TO FINISHED} 
ENDS % CASE 3 
Romer t eee H Hee OH EOP E RHE HEH ERE HERO OHH ORTHO PEEEEEHEF EDEN HOH OES 
BEGIN % CASE 4 = HEADER IN CORE 
WORKC 4] C3686 UaFILETYPES 
IF ACBASE) GEQ O THEN WORKE3).C2810)8RACBASEJS % SAVE FACTOR 
IF BOOLEANCUNLOCKTOGGLE) THEN 
IF WORKESJeCA8LI"0 THEN % NOT GUARDED 
WORKEC5) $= WORK[6] 2% 123 
DISKWRITECACBASE+1))3 
Ip GOODOBY AND CACBASE) GE® O OR BOOLEANCUNLOCKTUGGLE)) THEN 
BEGIN &% CHANGE OBJECT HEADER 
FINBCLL&SIAMC 3384487) 20eF TLLENAMEs (6836) sUSERCUDEsUSERCODE Ds 


DOING $8 53 
WAITFOR #3 TAM3 
END 


ELSE GO TO FINISHED; 
ENDS % CASE 4 


Reco gee een @eeonhenesens br OBJECT OTRE ee*eepeneeonaegnes 


e eee 
BEGIN X CASE 5 = RESULTS GF OBJECT OTRECTORY 
IF EVENTSC1) LEQ O THEN GO TO FINISHEDS 
LLDISKREAD #3 ACLBASE#1}) t= EVENTS(2)eC18815)3 
WANT t= VDISKREADS 
DOING t= 63 
ENO’ & CASE 53 
 POVPPTTEEU TERRE PET EeE eee ere rerererrrrrrrr errr rererrrrrererr errr, 
BEGIN ¥ CASE 6 © OBJECT HEADER IN CORE 
IF ACBASE] 20 THEN WORKC3],62910) ¢ ALBASE]; %0105* 
Ip BOOLEANCUNLOCKTOGGLE) THEN 
IF WORKE5J<€181J@0 THEN % NOT GUARDED 
WORKES)] t= WORKL6) $* 123 
DISKWRITECACBASE+1 J )3 
Go TO FINISHED 
ENDS &% CASE 6 
END ALL CASESS 


GO TO ExITs 

ERRS 

WANTS@WAITFOR##Q3 TAMSaVERROR 
EXITS 

END PROCEDURE SAVERS 


TRE RESPEC AR ORP AROSE SE EEC CERES REE AEE PRR ERE ES RE REE R EE SRE RE RE SRE S ESE ED | 


59007500 T 0102 
59007600 T 0102 
299007610 FT 0105 
59007700 +t 0106 
59907800 T 9106 
59007900 T 0110 
59@08000 T O411 
§9008190 T O112 
59008200 T 01412 
39008300 T O112 
539908400 T O12 
§9008500 Tf 0113 
59008600 y 9113 
59808700 T 0113 
59006800 T 0116 
59008810 T 91320 
599008820 T O21 
59008830 T Q123 
59908900 T 0126 
59909000 T 01330 
5999009100 T 0133 
59009200 T 0433 
59009300 T 0138 
59009400 T QO139 
59009500 +t 0139 
59009600 T 0139 
59909700 7 0139 
59809800 T O140 
59809900 T 0140 
59910000 T 0140 
539010100 T O144% 
59010200 T 0445 
59810300 T 0146 
59010800 T 0147 
$9010500 Y Q167 
59010600 T 0147 
99010700 P O44? 
59010710 T O51 
39010720 T 0152 
§9019730 T 0154 
59910800 T 0157 
59810900 T 0164 
99011000 T 0162 
§9011100 T 0162 
START OF SEGMENT wexttwades 
104 IS 8 LONG», NEXT SEG 
39011200 T 0163 
99911300 T 9363 
59011400 T 0164 
590413500 7 0366 
59011600 T 0166 
193 1S 169 LONG», NEXT SEG 
61000000 fT 0063 


104 
103 


igi 


Inc. 3¥ 


baeiies. 


sore Bu 


tAsore 


‘ 


w« 


PROCEOURE 


REMOVECLCWsA)3 


BOOLEAN LCw3 ARRAY ACOJ3 


ESE R SISOS SII SELES ESA LETTE TCE Ee Pe eee ee Te Pere ere eer 2 | 


BOOLEAN 


REAL 
LABEL 


WRKFILES 


ERR: 


BEGIN 
$ 


» OF 


WC#PCalaX3 
WRKFILEsERRe EXITS 


IF 
BEGIN 


BEGIN 
IF 
IF 

BEGIN 


LITOUTC"ERRS 
LITOUTCXsCRLF D3 


BOOLEANCDOQING) THEN &CHECK RESULTS, 
WCEBACSREG]I 


FOR [#0 STEP 4 UNTIL WC DO 


XPRALTBASE+]] NEG 6 THEN 
Xel616) NEQ O THEN 


*»NOCRLF)3 
MSGPTRt #23 


END IF# .END FOR} 


TAMt2Q3 


GO EXITS 


END CHECKING RESULTS; 


S 
IF 
BEGIN 


ENDs 
IF 
WH 
BEGIN 
I 
IF 
IF 
BEGIN 


$e 0 te BCwChai)é 
PC t= ACSREG3sBASE#ACBASEJ),FF = 0 THEN 


IF FILENAME & 0 THEN GOERR ("NO FILE%%1)3 


TPCOUNTS FILENAMES sSOURCEFILES aT AM3 303 
FILESAWAY (NOT S*USERCODE)3 
FILESOKISFALSES 


IF NOT S THEN GOODOBJtag COBVECTFILE180)3 


GO EXIT; 


PC GTR 10 THEN ACSREG4+1) 8% "TOOMANY™3 
ILE I LSS PG 00 


te T4113 XPeACSREG+II,COtsod3 
S AND 0. THEN ELSE 
Xe04216) NEQ " " THEN & ILLEGAL PARAMETERe 


ERRSW $= X3 
MSGPOINTER &* 423 & 6 CHRS MAX 
ERRORCSREG*+] ol Cws Ala) )3 


GQ 
END IF 


MATCHCXs"SOURCE ")BEGIN SseTRUES 
MATCH(Xs"QBJECT "BEGIN Os8TRUES StaFALSEs ENO ELSE 


EX] T3 
ILLEGAL PARAMETER) 


IF WE GOT HERE WORD IS NOT SOURCE OR UBVECT, 


MATCH(Xs SQURCEFILE) GOERRC"WRKFILE™s 1493 


BEGIN *& 
IF 
IF 
IF 
END IF 
END OF 
IF 
IF 
BEGIN 


S THEN BEGIN AC BASE*WC)taxs 
Xe04246) CQL * " THEN 

QO THEN BEGIN ACBASE*WCJ83X,06836)3 INCCWC)S ENDS 
A LEGAL PARAMETER; 

ALL PARAMETERS; 

wC LE@ 1 THEN &NO FILE NAMES SPECIFIED 
0 THEN 

IF GOOQOQUB J THEN 


QBVECTFILES #03 
GOODOBJSaFALSES 


INCCWC)S ENDS 


Ot@FALSEs ENO ELSE 


4Q527° 
B0527° 
40527" 
40527" 
40527" 
%0527° 


20208 


30508 


BOD27@ 
40527" 
40527 
405279 
40527 


64000100 
61000200 
61000300 
61000400 


START OF SEGMENT 


61000500 
61000600 
61000610 
61000618 
61000626 
61000634 
61000642 
61000650 
61000658 
61000666 
61000674 
61000682 
61000690 
61000698 
61000700 
61000800 
61000900 
61901000 
61001050 
61001100 
61001110 
61001120 
64001430 
61001200 
61001300 
61001400 
61801500 
61001600 
61801700 
61001750 
61001800 
64004900 
61002000 
61002100 
61002200 
61002300 
61002400 
61002500 
61002600 
61902700 
61002800 
61002900 
61002950 
61003000 
61003100 
61003200 
61003210 
61003213 
61003216 
61903220 
61903223 
61003226 


e444 


OOVNONAAAADN At AAA Ht ON OVO BAA tt a te a 


0064 
0064 
0064 
0064 


eek kt ehaeey 


0000 
0000 
0000 
0000 
000, 
0003 
0003 
0005 
0006 
0007 
0008 
0010 
0012 
0016 
0016 
0017 
0021 
0024 
0022 
0029 
0034 
0035 
0037 
0042 
0042 
0042 
0045 
0Q4?7 
0047 
0051 
0052 
0055 
0035 
0056 
0057 
0060 
0064 
0064 
0064 
0069 
0074 
0079 
0082 
0084 
0088 
0088 
0089 
0090 
0090 
0092 
0092 
0093 


105 


XPSMAKEFN CLS SLE 3 40527= 
REMOVEFILE CLL & 13 (3394437) 5x%,66' 36) sUSERCODE)3 
IAM!=0; 405278 
GO EXIT R0527° 
END B05278 
ELSE %0527* 
GOERR ("NO FILE"s26) 20527° 
ELSE 40527" 
GO TO WRKFILES 405278 
DOING?#13; WANTSSWAITFORS sVMCPMSG3 
LISMTNCESSTRUES ALINCCSREG) I] SSWNCIBPARAMESLIBMSGCTREGWCh 13 
FOR Its1 STEP 1 UNTIL WC 00 
REMOVEFILECLL&WAITFORE 3384187), ALBASE*] I 5 
USERCQDE)3 
EXIT! 


END OF REMOVE PROCEDURES 


Bee REE EEE ER ee ae EEE EERE RE REE ERY 


PROCEDURE 
BEGIN 
Seweekeyee START OF CHANGE CODE 

LABEL EXITS 


CHANGE CL CW2A)3 BOOLEAN LCws ARRAY ALQJ3 


REAL Ts 
TEMP3363 
CASE DOING OF 
BEGIN 
BEGIN % CASE 0 
CASE CHANGEWHICHCAC#)) OF 
, BEGIN | 
ff ‘BEGIN 
( TAM $8 VERRORS 
GO EXIT 
END: 
-BEGIN % WHICHSI""WORKFILE TYPE 


IF FILENAME «» O THEN GQERRCWNO FILE) 123 
IF FILETYPER® AND ALBASE44) NEQ 8 THEN GOERR(C"DATA "264)3 
FILETYPE t# ACBASE41)3 
* VOID a CARD 
FIND CLLQIAM C3384197]20eMAKEFN (*1S"OLL DP USERCODE*USERCODE)Ss 
TEMP i8 33 
DOING ta 53 
WAITFOR t= JAM} 
ENDS 
BEGIN % WHI CHm2""FILENAME TYPE 
FIND CLLGIAM C3384197]202A CBASEJ] +A (BASE4+5] 2USERCODE)3 
L DOING t= 13 
WAITFOR 5 TAM; 
END3 
BEGIN % WHICHS3""NAME TO NAME 
FINO CLLAIAM C338MLI7] 200A CBASKe1JeA CBASE+#6) 2USERCODED, 
DOING t# 33 WAITFOR ¢= JAMS 
ENO} 


40518° 


%0518° 
805169 


40918° 


30516" 


61003230 
61003233 
61003236 
61003240 
61003243 
61003246 
61003250 
61003253 
61003260 
61003900 
61004000 
61004100 
61004200 
61004300 
61904400 
61904500 


130 LONG 


62000000 
62000100 
62000200 
62000300 
62900400 


START OF SEGMENT 


62000410 
62000500 
629000600 
62000700 
62000800 
62000900 
62001000 
62001100 
62001200 
62001300 
62001400 
62001500 
62001600 
62001650 
62001700 
62901800 
62001900 
62602000 
62802100 
62902200 
62002300 
62002400 
62002500 
628902600 
62002700 
62002800 
62002900 
62003000 
62003100 
62003200 


Pp 
Cc 
¢ 
P 
C 
¢ 
P 

¢ 
P 
T 
T 
T 
T 
T 
T 
T 
’ 


ion en i Noe ieee Moe BO ite Me Ee Roe Be Oe Bee ee ee ee ee ee ee ee ee ek, , ee ee ee ee 


0096 
0097 
O104 
0102 
0402 
0102 
0402 
0109 
0109 
0109 
O144 
011g 
0119 
0119 
0125 
0126 

NEXT SEG 


0061 
O064 
0061 
0064 
0064 


RaEURE KRW 


0000 
0000 
0000 
0004 
0004 
0001 
0002 
0003 
0003 
0004 
0004 
0005 
0005 
0012 
0021 
0023 
0023 
0027 
0028 
0029 
0029 
0030 
0030 
0034 
0035 
0036 
0036 
0036 
0044 
0043 


8 


106 


es Be ib? : chinese es Fe ae 


ge 


POMWG 


Ke 


® WHICHe4 "LOCK 


BEGIN 
GOERRC"LOCK "e155 

COMMENT 

PUT 
LOCK 

STUFF 
HERES 
ENDS 


BEGIN % WHICH#S**PASSWORD 

IF LL®O THEN GOERRC"™PASWORD"249)53 
TAM 3® VCHNGPSWDs 

DOING 3% 03 

GO ExIT 


END} 
BEGIN % WHICHS6 =" CHANGE es ee 
0 IF LL20 THEN GOERR("NAME "249)3 
( TAMtaVCHNGNAMES GO EXITS 
END CASE 63 
% WHICH = 7» CHANGE SAVE “FACTOR* 


BEGIN 
IF A CBASE*+4) = 2 THEN IF A CBASE],0C 4286) EQL ™ * THEN 
A CBASEJ#sa (BASE) .06436) ELSE 
GOERR (A (BASE)242)3 


FIND CLLQIAM C3384187)2002A CBASEJ*2A (CBASE+5] 2USERCODE 93 
DOING 3s 73 

WAITFOR t= JAM} 

ENDS 


END WHICH CASESS 


“END CASE 03 
eos % CASE 1" GET HEADERC CHANGE TYPE) 
TheIf SCHEDULINE AND BOOLEAN (CSCHEDNaME.(1%4]) THEN O ELSE 33 
IF EVENTSC1)] LSS T TREN GOERRCALBASE)02)3 
LLOISKREAD t= ALBASE*2] t& EVENTS(C2),FF3 
WANT %% VDISKREAD3 
DOINGIs23 
END cASE 13 
,BEGIN & CASE 2 
WORK(C4),(3686] %@ ACBASEC1L)} 
DISKWRITECALBASE+2))3 
IF SCHEDULINE THEN 
IF BOOLEANC SCHEONAME,(C191]2 THEN & TERMINATING SCHEOULE 
,~ BEGIN 
(8 ts WANT $# WAITFOR 3 Q3 


e 


SCHEDGOTOC#1)3 
GO TO EXITS 

ENDS. 

h IF A CBASE*5) EQ. USERCOQDE THEN 

~ MATCHCACBASEJ FILENAME) IF FILETYPE NEQ@ 6 THEN 
A BEGIN FILETYPE 3 ACBASE*1)33 

s WATCHCFILENAME » SOURCEFILE) 


BEGIN FINDCLLS TAME 3384187 ),0,50URCEFILE »USERCODE »USERCODE D5 
DOING s# 53 WAITFOR ta JAMS 


’ * 
ry 4 : ee « ®# 5 


405489 
*0518= 
x0518° 
%0518" 


40518" 


40518 


40518" 


START OF SEGMENT 


62903300 T 0043 
62003400 tf 0043 
62003500 T 0050 
62003600 T 0050 
62003700 T 0050 
62003800 T 0050 
62003900 T 0050 
62004000 T 0050 
62004100 tT 0050 
62004110 7 0050 
62004200 tT 0058 
62004300 T 0058 
62004400 T 0059 
62004500 T 0060 
62004520 T 0060 
62004530 T 0060 
62004540 T 0068 
62004560 7 0069 
62004562 T 0069 
62004563 c 0069 
62004564 P 0073 
62004565 ¢ 0075 
62004566 P 0084 
62004568 T 0085 
62004570 T 0086 
62004572 T 0087 
62004600 Y 0087 

keaWEH ERE 

9 LONGs NEXT SEG 
62004700 T 0088 
62004800 T 0088 
62004900 P 0088 
62004910 T 0092 
62005000 T 9098 
62005100 fT 0102 
62005200 P 0103 
62005300 T 0104 
62005400 yr 9104 
62005500 T 0104 
62005600 T 0107 
62005610 T QO411 
62005620 7 0112 
62005630 T 0114 
62005640 T O14 
620056530 T O16 
62005660 T 0119 
62005670 T 0120 
62005680 c 0120 
62005700 TY O22 
62005800 tT 0126 
62005900 T 0128 
62006000 Y 0128 
62906300 7 0134 
62006200 fT 0135 
62006300 T 04337 
62006400 T 0137 
62006500 T 0137 


107 
106 


Sires, ane 


hidesdch 


aE 


@ fArcie 


SS we CASE 23 


BEGIN % 
IF EVENTSEC1) GE@ O THEN GOERRCACBASE+1 12303 


( 


MIsLIBMSGCTRIs 
% VOID A CARDC Hs cond west TeMPics;) 


E 
) 


B 


ACBASE +4) 
ACBASE#3} 
TIBLL & V 


CHANGEFILE CTe#A CBASE*L I] eA CBASE*S Joa EBASE*2]2A CBASE4+9) D3 
IF A CBASE],C42%6] EQL * * THEN 


BEGIN 
PARAMS aL] 


CHANGEFILE (Ted CBASE*3} 2A CBASE+S)] 4,4 CBASE+4) ea [BASE+O) D3 


END 
ELSE 
PARAM#sL1 


WANT ts W 
LIBMTNCE 
DOING ¢s 
ND CASE 
EGIN * 
IF A CBAS 


IF A CBASE*#5)] EQL USERCODE TREN 


CASE 3 * CHANGING NAMES 


ta CACBASE*2] t# ACBASE41)).[6836]3 

ls CALBASE+1) §% ACBASE)),(6436)3 
MCPMSG (3334187)3 s0518° 
x05{8° 
2051a" 
x0518° 
s0518° 
£0518" 
%0518° 
405180 
30518" 
40518" 


BMSGCTR#323 


AITFOR $= VMCPMSG} 
ts TRUES 
43 
33 
CASE 4 
E+6) NEG 7 THEN GOERR (C= A (BASE4+6],2)3 20518" 
20518° 


MATCHCFILENAME sALBASE+31 )) 


EGIN 
FILENAME ta ACBASE+2)3 
MATCHCACBASE+1 )]sSQOURCEFILE) 


EGIN 


SOURCEFILE t= ACBASE+2)3 


% VOID a CARD 30518" 
MAKEFILE CLLGISLISt4 LET] od eMAKEFN CIS" PLL sUSERCODE*FILETYPES0)3 


IF GOODOBJ THEN OBVECTFILE ts ACBASE+4]3 


E 
E 


E 


B 
* 


E 


E 


ND3 
ND3 
TAM 3% 03 
NO CASE 
EGIN x 


IF EVENTSC1] NE@ 7 THEN GOERR("ARRGH 
LLOISKREAD ta ALCBASE+2) 


< means "I am finished ” 
43 
CASE 5 = CHANGING SOQURCEFILE TYPE 
224); 
te EVENTS(C2),FF3 


WANT f# VDISKREAD3 


DOING! #63 
ND CASE 


WORK(4)6¢ 


40518 
53 
GASE 6 = FINISH SOQURCEFILE TYPE 
3616] t= ACBASE+¢1]3 


DISKWRITECACBASE+2)])3 


GOQDOBUIsRALSEs 


BEGIN : 
& e 
WANTSsVOISKREAD3 


LLDISKREADIBTPOK ADR; 


DOINGIaiy: 


ND ¢ASE 


40403" 
% GET EOF POINTER RECORD IN "AP" FILE%0518= 

40518 

40518" 
63 


IF &VENTSO£C1) NEG 7 THEN GOERRCALBASE }22)3 


LLOISKRE AD 


te ACBASE+3) t= EVENTS(C2),FF3 % SAVE ADDRESS 


WANT t& VBISKREADI 


DOING $2. 


(8 % CASE 7 = CHANGING SAVE FACTOR 


83 


END} x CASE ? 


BEGIN 
4 
¥ 
‘ 


% CASE & * HEADER NOW IN C 


WORKC3IeCRIHL10] #% ACBASE*2)3 % REPLACE SAVE FACTOR 
DISKWRITECALCBASE+3])3 % REPLACE HEADER 


#), 518 


62006600 
62006700 
62006800 
62006900 
62007000 
62007100 
62007200 
62007210 
62007220 
62007230 
62007300 
62007400 
62007410 
62007420 
62007500 
62007600 
62907700 
62007900 
62008000 
62008400 
62008200 
62008250 
62008300 
62008400 
62008500 
62008600 
62008700 
62008800 
62908900 
62009000 
62009400 
62009200 
62009300 
62009400 
62009500 
62009600 
62009700 
62009800 
62009900 
62010000 
620190100 
62010200 
62010300 
68010350 
62010375 
62010400 
62010450 
62010500 
62010600 
62010700 
620140800 
62919900 
62011000 
62011100 
62011200 
62011300 
62011400 


AHA AHHH VO AAA A tt ht 0 a st tt 9 0 Ht HAHA VON YBN OO BB Hat 


ov 


€ A @ 


sre Bare 


_™= 
> 


- 


OOING ts 93 
ENO3 % CASE 8 


BEGIN % CASE 9 

IF EVENTSC1] NE@ 7 THEN & NO OBJECT VERSION 

ie BEGIN LITOUT (TERK? “»sNOCRLFQ3 

Pa U LITOUT (O & Mw” C68M2I6) & A CBASE) C1246936) eCRLF DS 
TAMt#03 GO TO EXITS 


aD eeKREAD 13 ACHASE+3] 38 EVENTSC2),FF3 % SAVE ADDRESS 
WANT ts VDISKREADS 
DOING 3* 103 
ENDS & CASE 93 
/BEGIN % CASE 10 © HEADER NOW IN CORE 
of WORK(3)0(2910) %* ACBASE42)3 % REPLACE SAVE FACTOR 
ge DISKWRITECALBASE+3])3 % REPLACE HEADER 
IAM 38 Q3 
NOs’ % CASE 10 
BEGIN & CASE 11 = "1P" EOF POINTER IN CORE 
% EOF POINTER 


IF WORK (OJ#TENS THEN 
BEGIN 
WORK C@O]8*FILETYPES % NEW FILE TYPE 
DISKWRITE (TPOKADR)$ &% REPLACE EOF POINTER 
ITAM?303 
END 
ELSE 
BEGIN % RATS = FILE TYPE IN NEXT SEGMENT 
IF WORK €10)8TENS THEN 
A CBASE] #30 
ELSE 
Ip WORK €20)*TENS THEN 
A CBASE)*#10 
ELSE i ahiabicko oc FIND EOF MARKER * GIVING UP 
BEGIN IAM$®03 GO EX ND3 


DOING?=123 
LLDISKREADI=TPOKADR#13 
WANT £mVDISKREAD; 
TEMP Imi} 
ENDS 
ENDS & CASE 11 
wy BEGIN =& CASE 12 = FINALLY GOT FILETYPE IN "1P" EOF RECORD 
wef WORK CA CBASEJ]F=FILETYPES 
v DISKWRITE (TPOKADR+1)3 
TAM#2 203 
END3 x CASE 12 
END ALL CASES: 


EXITt 
ENO CHANGE VERBS 


IF A CBASE+4{] GTR 0 OR A CBASE).(4286)] NEQ * ™ THEN 
BEGIN IAM 8# O32 GU TO EXIT3 
ND3 
FIND CLEQIAM C33841879502A (BASE) 6 (6836]5A [BASE4+5) »USERCODE)3 
WAITFOR $3 TAM} 


%0518= 


#0518" 


40518" 
40518 
30518" 
403189 


0516" 
20518" 
40518° 
40518° 
20518° 
40518 
40318= 
30518 
80518 
40518* 
%0518° 
40518" 
205186 
40518° 
40518 
40518" 
40518" 
40518 
40518 
40518 
40518" 
405189 
40518" 
30518" 
20516" 
40516" 
30518 


62011500 P 0253 
62011600 T 0256 
62011700 Tt 0258 
62011800 Pp 0258 
62012000 T 0263 
62012100 YT (264 
62032200 T 0264 
62012300 T 0265 
62012400 T 0265 
62042500 P 0266 
620123550 c 02867 
62012600 P Q2ary 
62012650 ¢ Q275 
62012700 T 0275 
62012800 Tt OQ2e78 
62012900 tT 0279 
62013000 rt 0280 
62013100 T 9280 
62013200 T 0280 
62013300 T 0264 
62013400 T 90288 
62033500 T 0288 
62013502 c 0289 
62013504 ¢c 0289 
68013506 c 02490 
62033508 ¢ 0290 
62013510 ¢ 0292 
62013512 c 0297 
62013514 ¢ 0297 
62013516 c 0297 
62013518 c 0297 
62013520 ¢ 0300 
62013522 c 0301 
62033524 c 0302 
62013526 ¢ 0302 
62013528 ¢ 9306 
62013530 c 0307 
62013532 c 0307 
62013534 c O314 
62013536 ¢ 0312 
62013538 ¢ 90315 
62013540 ¢ 90316 
62013542 ¢ 0316 
62013544 ¢ 0316 
62013546 c 0317 
62013548 ¢ 0317 
62013950 ¢ 0319 
62013552 c 0324 
62013554 ¢ 0325 
62013600 T 02325 
START OF SEGMENT wearttanne 
108 IS 14 LONG» NEXT SEG 
62013790 T 0326 
62013800 T 0326 
106 IS 329 LONGs NEXT SEG 


108 
106 


8 


OCP e CEP ECCS PSEC LEE Te CeCe LECCE LCC CLAS TTC TTT E LCC TELL TTT Tee TS 


PROCEDURE 


Be a a Re ee ee HO eT eee ENE 


BEGIN 


LABEL 


BEGIN 
BEGIN 


END 


BEGIN 


BEGIN 
ENDS 


ENO 
END 


EXIT! 
END 


RENAMETT (LCWs Ad$ BOOLEAN LCWA ARRAY ALO) 


EXIT3 
CASE DOING OF 


% CASE Q 
IF FILENAME # © THEN GOERR 
SREG %# BASE = ALBASE]} 
IF ACSREGJeFF#O THEN GOERRO"FILENAM"26)3 
IF ACINCCSREG)].0383) = 0 THEN GOERRCACSREG)08)3 
IF ACSREGJe{323)=7 THEN GOERRCACSREG) 242); 
IF FINDAWOROCACSREGJ» RESWRDTABLECI I>» 
NUMOFRESWRDS) NEQ@ O THEN GOERRCACSREG) 22993 
FIND CLLSTAMC3384LE7TI S02 ACSREG] g[6%42)» 
USERCODEs USERCODE)3 
DOING ts 13 
WAITFUR &@ JAM} 
CASE 03 
% CASE 1 
IF EVENTS(C1) GEQ@ QO THEN GOERRCACSREG)23)3 
MATCHCFILENAME s SQURCEFILE) 


CVNOFILE "2 193 


WANT 8&2 VCOPY3 


FILENAME t* ACSREG).COs42)a" "L42rdaro); 
TAM 38 Q3 

CASE 13 

ALL CASES3 


OF RENAMETTS 


63000000 
63000100 
63000200 
63000300 
63000400 

START OF SEGMENT 
63000500 
63000600 
63000700 
63000800 
63000900 
63001000 
63004100 
63001150 
63004200 
68001300 
63001400 
63001500 
63001600 
63001700 
63001800 
63001900 
63002000 
63002100 
63002200 
639002300 
63002400 
63002500 
63002600 
63002700 
63002800 


ee Nee ee Ne Me ee re ee ee ee ee ee eee ee ee ee ee ee ee ee ee 


0061 
0064 
00614 
0061 
0064 


RRO RH ee 


0000 
0000 
0000 
0000 
0008 
0009 
0018 
0025 
0032 
0033 
0040 
0040 
0045 
0046 
0046 
0047 
0047 
00533 
0053 
0056 
0056 
0056 
0960 
0064 
0061 


START OF SEGMENT #eueeeanwe 


110 IS 3 LONG, 
63902900 T 
63003000 T 

109 IS 64 LONG» 


Re ee EEE AREER EERE N ERE EEKEERH EEN ERE 64000000 T 
PROCEDURE WHATSITCLCWeA)S BOOLEAN LCWS ARRAY ACLOI3 64000100 T 
Ree eee ENR ee EEE EEE RENEE EYEE REAR ERENT RE 64000200 Tf 
BEGIN 64000300 T 
LABEL CaASE1LsEXIT3 64000400 T 
START QF SEGMENT « 

REAL TMsTPeDATES 64000500 T 
BOOLEAN OBJsSLASHS INTEGER yoPC3 REAL WORDS 40517" 64600550 ¢ 
Kearse e@@e PHHOHOHEHO HOE EEO AR AHHH RHO HRHORH ERO RE HOHRH OMAR HO eeeeeen 64000600 T 
STREAM PROCEDURE "MSGCLSFICNAM,HRKTOGs TYPE sNREKSsDATEs TMs SAVER) 64000700 T 
LTERUER TAC E ORS CC ETER ORE RC CELE CE TS CER OLE E TT CREE Teer eee 64900800 T 
VALUE FILNAMsWRKTOGs TYPE sNREKSs DATEs TMs SAVEF 3 64000900 T 
BEGIN LOCAL SV3 LABEL EXIT; 64001000 T 
OIts_s OSSBBLIT” "3 STtaLs OSte9wOSs 64001100 T 
OLseys OSHSSLIT FILE "3 STssL0c FILNAMS SIsaSio13 64001200 T 
7CYF SCew * THEN JUMP OUT ELSE OStacHR)3 64001300 T 
WRKTQOGCDS# a1 iL IT" CWORKFILE)%)3 64001400 T 


NEXT SEG 
0062 
0063 

NEXT SEG 


0064 
0064 
0061 
0064 
0064 
ARERR EN EY 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 — 
0002 
0003 
0006 


109 


111 


hens 


bees ° we OM 


! 


= 


DSta7vLits TYPE "3 SJtmlOc TYPES STteS]+13 

7CIF Sca* * THEN JUMP OUT ELSE DStsCHR)3 

DSteoL ITs 3 SVESOT3 

SIsm_OC NREKSS DSteBDECs OL tsSVs OSte7FILL SItsSvs Ol easvz; 
S8CIF SCa" " THEN SIteSle, ELSE OSt#CHR)3 

DStsgliT* RECORDS"S 

WRKTQOGCJUMP OUT TO EXIT); 

DSte,OLIT%» CREATED "3 STteLOC DATES DSt#8CHR} 

SIltseL OC TMZ OSHZ2L.IT" €%3 SVIFDIs OStB4DEC3 

Olsasvs OSteZFILLs ST&eSv3 DJ twssvi 

QCIF SCa” " THEN SltaSI+1 ELSE DSteCHR) OSte2LIT"™) "3 
DStegLIT"SFa"s SVIsDI3 

STts_Oc SAVERS OSIz4DEC3 OL teSV3 OSSe3FILLZ SI seSV3 Ol sasv; 
4ACIF SCa* " THEN SItaS]T+] ELSE OStsCHR)I 


EXIT# OStseLIT" "3 


END STREAM PROCEDURE MSG3 


BEGIN 
BEGIN % CASE O 
SREG #3 BASE * ACBASE}3 
TEMP $s 23 


If ACBASE) 8 ACSREG],FF = 0 THEN % NO PARAMS» WANTS WRKFIL 


BEGIN 
IF FILENAME = Q THEN GOERRC NO FILE"*193 & NO WORKFILE 
IF TPCOUNT GTR O THEN & UPDATE REQUIRED 
BEGIN 
WANT 9% VUPDATEs 
LITQUTC WAIT. "e1)3 
DOING t# 43 
GO TQ EXIT; 
END & IF WORKFILE NEEDS UPOATE 
ELSE ACBASE+1] t= SOURCEFILES 
A CBASE*2]5"USERCODES 
END % IF WORKFILE REQUESTED 
ELSE 
BEGIN 
SLASH#SOBUS*BOOLEAN CA CBASE+2)]8mA CBASE41)]9%1230)3 
PCiaA (BASE); 
WHILE I 48S PC DO 
BEGIN 
INC ¢3)3 
WORDS4A CINC CSREG))) 
IF WORD,£393) GTR O THEN % LETTER STRING 
BEGIN 
WORD@ #WORDe (6442]2 
MATCH (CWORD*"OBVECT ") 
OBS aTRUE 
ELSE 
IF A CBASE+1) EQL O THEN 
A CBASE+1]8*#WORD 
ELSE 
IF A CBASE#2) EQL O THEN 


TEPER TPEEETEUTEEELU LUCE ETE PEELE eRELTETeTPEEPTTrererrrrererrreeere 


CASE OOING OF 


30517 


40517" 
20517" 
40517" 
20517= 
80517" 
40517" 
%0517% 
40517" 
40517" 
RQ517" 
%0517° 
*0547° 
80517° 
4Q517" 
40517 
%0517° 
30517" 
#0517" 


64001500 
64001600 
64001700 
64001800 
64801900 
64602000 
64002100 
64002200 
64002300 
64002400 
64002500 
64002600 
64902700 
64002800 
64002900 
64003000 


64003100 
64004400 
64004500 
64904600 
64004700 
64004800 
64004900 
64005000 
64005100 
64005200 
64005300 
64005400 
646805500 
64005600 
64905700 
64005800 
64005900 
64005950 
64906000 
64006010 
64006020 
64006030 
64006040 
64006050 
64006060 
64006070 
64006080 
64006090 
64006100 
64006110 
64006120 
64096130 
64006140 
64006150 
64006160 
64006170 
64006480 


at tat ot ot se 


AOOAMNAABDANIAIANNNAO 4A AAMAS HHA Aes 


0009 
0010 
0013 
0013 
0015 
0017 
00186 
0020 
0022 
0023 
0024 
0026 
0027 
0029 
0030 
0032 


0032 
0032 
Q033 
0033 
0033 
0035 
0036 
0038 
0039 
0047 
0048 
0049 
0049 
0050 
0054 
0053 
0053 
0055 
0087 
Q057 
Q037 
0058 
0062 
0963 
0065 
0065 
0066 
0068 
0069 
0070 
0074 
0073 
0074 
0074 
0078 
0080 
0080 


T4tZT 


fo SY 


re ges | 
bess Forms, In 


ore Ei vires 


on 
¢ 


¢ e @#*e@s 
IF SLASH THEN 40517" 
BEGIN BO517= 
A CBASE+2)% WORD; 40517" 
SLASH? FALSE} *051478 
END 40517 
LSE ‘0517 
GOERR CWORDs8) a0517" 
ELSE 40517° 
GOERR (wWORD?8) 40517 
END 20517° 
ELSE : 20517 
IF WORDeC1#2) EQ. 1 THEN &% SPECIAL CHARACTER 30517" 
Ir WORD EQ@k "/" THEN %0517° 
IF SLASH THEN %0517° 
GOERR CWORD?8) 205178 
ELSE %0517" 
BEGIN 205479 
SLASH FTRUES 40517" 
IF I + 2 LEG PC THEN 20517" 
FIXUSER (I*#AsEXITe TRUE)3S *05478 
END 40517" 
ELSE BO0S47" 
GOERR CWORDs8) 30517" 
ELSE 2Q0517*% 
BEGIN 40517 
WORDtmDECCONV (WORD); 40517" 
GOERR (WORD,8)3 20517 
END3 205177 
ENDS 40517" 
IF SLASH THEN GOERR ("INCMPLT28)3 20517° 
IF OBJ THEN 40517" 
IF A CBASE*1) EQL O THEN 305175 
IF GOOQOQBW THEN 20517° 
BEGIN 405172 
A CBASE+L JI SSOURCEFILE*] (6836); 40517 
A CBASE)1#03 ROS? 
END 40517" 
ELSE 40517 
GOERR ("NO FILE"s1) *0517= 
ELSE 40517 
A CBASE*11¢5a CBASE+1],(06836); 40517" 
IF A CBASE+2] EQL O THEN 20517 
A [CBASE*2)] #*USERCODE; %0517" 
ENDS 20517" 
Go TO CASEI 405177 
END3s % CASE 0 405172 


PET WEETOCEEICE USES OPELELELELeLeTerrrerreeeree re ree ere reer er ree rere errs 
BEGIN % CASE 1 
ACBASE+1) t# SOURCEFILE: 
A CBASE*2] teUSERCQOOE; 40517" 
CASE! 
FIND CLLQIAM 03384187) e020 CBASE4+1IJ5A CBASE+2)] #USERCQODE); 20517" 
WAITTEOR ta JAM; 
DOING §@ 23 
ENDS % CASE 1 
PPE PEP OEP V UCU P ESL eVerrererererrrrrrererrerererrrrrrrrrryr rrr rir 


BEGIN % CASE 2 


64006190 
64006200 
64006210 
64006220 
64006230 
64006240 
64006250 
64006260 
64006270 
64006280 
64006290 
64006300 
64006310 
64006320 
64006330 
64006340 
64006350 
64006360 
64006370 
64006380 
64006390 
64006400 
64006410 
64006420 
64006430 
64006440 
64006450 
64006460 
64906470 
64006480 
64006490 
64006500 
64006510 
64006520 
64006530 
64006540 
64006550 
64006560 
64006570 
64006580 
64006590 
64006600 
64006610 
64906620 
64006630 
64906640 
64006700 
64006800 
64006900 
64006950 
64907000 
64907100 
64007200 
64907300 
64007400 
64007500 
64007600 


AAA HAVA AAAAAN ATH ANAAAAN AN BENEMAANAAAANWVANAANQ AN AA BAA AN AANA HN AaAAB08 


0082 
0083 
0084 
0085 
0086 
0086 
0086 
0094 
0094 
0096 
0096 
0096 
0098 
0099 
0100 
0105 
Q105 
0105 
0106 
0107 
Oils 
Oily 
O@Lt 
0116 
0116 
0116 
0118 
0123 
0123 
0123 
0330 
0130 
0132 
01433 
0134 
0136 
0137 
0137 
0137 
0144 
0144 
0147 
0149 
0454 
0151 
0152 
0152 
0152 
0152 
O1Sa 
0156 
0357 
0162 
0162 
0163 
Q164 
0164 


s 


TL 3¥ 


sre & 


IF A CBASE+1)] 60686) EQL O THEN A (BASE*1), (686) tarwns 
IF EVENTS Ci] LEQ@ O THEN 
BEGIN 
GOERR (A (CBASE+1)52)3 
END3 
LLOISKREAD 33 EVENTSC2),FF4 & HEADER ADORESS 
WANT #® VOISKREAD; 
DOING t= 33 
END3 % CASE 2 


405178 
*0547" 
%0517° 
205178 
%0517" 


ee In’ SCA egeees a I eoeeneseeeseraonee eooeore oe 
BEGIN’ S°CASE'S. °C REAGER NOW IN CORE ee 


DATE #* DATECONVCWORKLE3),(30%18)); 

Ip TPeeWORKE4),£3686) GTR NUMOFTYPES THEN TP8#03 
TMIPRWORKOC12,025%23]3 & CREATION TIME 

TMtSTM DIV 216000x%1004TM DIV 3600 MOD 60 OIV 14 
If ACBASE) = OQ THEN % WANTS WORKFILE SPECS 


MSG (LaIF A CBASE+1),0696) EQL "#" THEN O & "#” COHh2t6) & 


B0517° 


FILENAME (1296836) ELSE FILENAMEsTRUEsTYPETABLE CFILETYPE),» 


WORK C7] +1 sD0ATEsTMsWORK (3),(2%10]) 
ELSE % WANTS NAMED FILE SPECS 
MSGCLsACBASEFL IJ sFALSEsTYPETABLEC TPJeWORKEI7 J +1» 
DaATEsTMeWORK(3),C2%10))3 
TWXOUTC LLL £9) 2802123 
IAM ta QO} 
EnO CASE 33 
END ALL CASES; 


EXITS 
END PROCEDURE WHATSIT3 


RR EERE EERE REA RERANEHAERKARKEENE EEE KEK Ee 


PROCEDURE GUARDITCLCWs2A)3 BOOLEAN LCW3 ARRAY ALOJS 

RO KEA NEE REE REE EEE ie 
BEGIN 

LABEL TS 


IF TPCOUNT NEG 0 THEN 

BEGIN 
LITQUTC"WAIT, “sNOCRLF D3 
WANT 3& VUPDATES 

END ELSE 

BEGIN 
RUN1 $# "GUARD "3 
RUN2 ta "“OISK "3 
IAM #8 VDISPATCH3 
LITOUTC"WATT "sNOCRLF D3 

END3 

ENO GUARDITS 


Ee 
- 


40517" 


649007650 
64007700 
640077140 
64007730 
64907740 
64007800 
64807900 
64008000 
64008100 
64008200 
64008300 
64008400 
64008500 
64008600 
64008700 
64008800 
64008900 
64008950 
64009000 
64009100 
64009200 
64009300 
640909400 
64009500 
64009600 
64009700 

START OF SEGMENT * 
112 IS 5 LONGs 
64009800 T 
64009900 T 
221 LONG, 


ttt tO tt a tH HH HO OC OTTIO 


411 IS 


67000000 T 
67000100 T 
67000200 T 
67900300 7 
67000350 T 
START OF SEGMENT *# 
67000400 T 
67000500 T 
67000600 T 
67000700 T 
67000800 T 
67000900 T 
67001000 T 
67001100 T 
67001200 T 
67001210 T 
67001300 T 
67001400 T 
r) 


113 18 16 LONG 


Q164 
0169 
0170 
0174 
0176 
0476 
0178 
0179 
0180 
0180 
0180 
0180 
0482 
0185 
0167 
0194 
0192 
0197 
0200 
0203 
0203 
0209 
O@11 
0213 
Oal4 
0244 


eethkhekie 


NEXT SEG 


0@15 
0215 


NEXT SEG 


0064 
0064 
0061 
0064 
0064 

keh eke 
0000 
0004 
0002 
0003 
0003 
0003 
0007 
0008 
0009 
0040 
0014 
0014 


NEXT SEG 


1l2 
411 


113 


8 


¢ 


4 


*2. 
< 


* - , @# * @ + . 4 mo 
rE RSET OSCE PACES ECAR CREE EE RECS SCS TEPC SC CECA ESAS SELES TCC Lars 68000000 
PROCEOQURE LOCKITCLCWsA)s BOOLEAN LCWs ARRAY ALO)S 680004100 
CEC ESI TESST CSET CCC EC SCS CS LETC TSS CLACCTSCCCCLOCSTCCLALTATLT Tri 68900200 
BEGIN 68000300 
REAL IsPCe IMAX» WORD} 68000400 
START OF SEGMENT 
BOOLEAN LOKsUNLKePUBSWORKFILEsNAM1»NAM2sSRC eo OBUsWTHS 68000500 
BOOLEAN SLASHsNAM3sNAM43 INTEGER FORGETSET3 40516° 686000550 
LABEL RESTRTsSELECTsSECURsCHECKsERRIPERR22 EXITS 68000600 
LABEL CHECKUSERs SELECTITS 20516 68000650 
CASE DOING OF 66000700 
BEGIN 68000800 
BEGIN % CASE Q * SYNTAX ANALYSIS 68900900 
Po ts ALCSREGSSBASE“ACBASEI]I,018815]3 % PARAMETER COUNT 68001000 
I te VERBTABLECACSREG).£69193),06842)3 % VERB NAME 68001100 
MATCHCIT»"UNLOCK ") UNLK %@ TRUE ELSE 68001110 
MATCHCI»"PUBLIC "2 PUB t= TRUE ELSE LOK #8 TRUES 68001120 
MATCH(FILENAME*? 0) ELSE % GUOD WORKFILE 688001200 
BEGIN 68801300 
A CBASE*1)]3*SQURCEFILEs x DEFAULT FILE NAME 40516" 66001400 
WORKFILE 8% TRUE 68001500 
ENDS 68001600 
Ip PCaO THEN % NO PARAMETERS 68001700 
BEGIN 68001800 
If NOT WORKFILE THEN GOERRC(NOFILE 2123 % NO WORK FILE 680901900 
NAMISaTRUEs ACBASEJ#303 % ASSUME WORK FILE NAME 68002000 
GO TO SELECTS & NO FURTRER SYNTAX ANALYSIS 68902100 
END3 68002200 
ACBASEI]saC IT sSSREG*1 OCIMAXSBSREGHPC 018833981576 68002300 
ROPUBICASSA7TELIARCL OK CLOS473 2 RRCUNLKICAL784781)3 68002310 
RESTRTS 68002320 
FOR Iss STEP 1 UNTIL IMAX DO 68002400 
BEGIN 68902500 
IF A CI),03%3] = O THEN %&% NOT A LETTER STRING 30516" 66002600 
IF A CI] = "/" THEN 405167 68002610 
JF SLASH THEN GO ERRY 40516" 68002620 
ELSE IF WTH THEN IF NAM2 THEN 405168 68002462} 
BEGIN 40516° 68002623 
CHECKUSER? %0516" 68002625 
SLASH t2£TRUES 30516" 68002627 
IF I # 2 LEQ JMAX THENS0516" 68002628 
BEGIN SREG!a]3 40516" 68002629 
FIXUSERC Ie As EXITs* TRUED ENDS 68002630 
ENO 40516° 68002635 
ELSE GO ERRY %0916 68002640 
ELSE IF NAM1 THEN GO CHECKUSER 20516" 68002650 
ELSE GO ERR1 40316" 68002660 
ELSE 40516" 68002670 
GO ERR} 40516° 68002680 
ELSE 40516" 68002685 
BEGIN 40516" 68002690 
WORD ta ACTI,C¥6%42)3 68002700 
MATCHCWORD "SOURCE ™) 68002800 
BEGIN 68002900 
IF SRC THEN GO TO ERR 20516 68003000 
IF WTH 40516 68003050 
OR QBJ THEN BEGIN FORGETSET$#23 GO SELECTIT ENDS 40516" 68003100 


BVO VAAANVHOONAVONONNV9990A900 O Vata Ast AA HA DH tt a A OHO tt 


0061 
0064 
0064 
0061 
0061 
weethtkkrke 
0000 
0000 
9000 
0000 
0000 
0000 
0000 
0000 
0003 
0006 
0009 
0016 
Q019 
0019 
0024 
0022 
0022 
0023 
0023 
0030 
0032 
0032 
0032 
0035 
0039 
0040 
0044 
0044 
0042 
0044 
O04 
0046 
0047 
Q047 
0047 
0049 
0050 
0053 
0053 
0053 
0054 
0055 
0055 
00558 
0055 
0055 
0057 
0057 
0059 
0060 
0060 


114 


av 


mek 


Re 
, 


SRC s# TRUE 3 40516" 
END 

ELSE MATCHCWORDs"0BVJECT ") 
BEGIN 
IF O8J THEN GO TO ERRYS 40316 
IF WTH 40516" 
OR SRC THEN BEGIN FORGETSET#&13 GO SELECTIT ENDS 403516° 
OBJ t= TRUE3 20516" 
END 

ELSE MATCHCWORD? "WITH ") 
BEGIN 


IF UNLK OR PUB OR WTH THEN GO ERR13 & INVALIO PARAMETER 
IF NOTCNAMY OR WORKFILE) THEN GOERRCPNOFILE %p1)3 
NAM] #3 WTH t# TRUEJ &% LOCK THE WORK FILE IF NAME NOT GIVEN 


END 
ELSE IF WTH THEN % LOOKING FOR GUARD FILE NAME 


BEGIN 
IF SLASH THEN IF NAM4 THEN GO SELECTIT 40516° 
ELSE BEGIN A CBASE+7)%ewORD; 40516" 
SLASHISFALSES BOS16° 
NAM4teTRUE END 40516° 
ELSE BO516° 
IF NAM2 THEN GO SELECTIT ELSE BEGIN 40516 


ACBASE*2]) 8% WORDS %& SAVE GUARD FILE NAME 
NAM2 !* TRUES 


END 40516° 
END 
ELSE IF NOT NAM THEN % NAME OF FILE TO BE LOCKED 
BEGIN 
IF O08) THEN B0516° 
IF WORD,£42t6]) NE@ " ™ THEN 40516" 
GOERR CWORDs42)3 20516" 


ACBASE*1) &$* WORD; 
NAM1 35 TRUES 


END 
ELSE 
BEGIN 
IF SLASH THEN IF NAM3 THEN GO SELECTIT 40516" 
ELSE BEGIN A CBASE+6)% aWORD3 40516" 
SLASHS #FALSES #0516" 
NAM38STRUE END 20516" 
ELSE BEGIN %0516° 
SELECTIT! 0516" 
ACBASEIe633815)]3"13 GO TO SELECT 
GNO3 
END3 20516" 
403516" 


ENoJ 
END I |QOP3 
A(BASE]#a03 % END OF PARAMETER LIST 
SELECTS 
IF SLASH QR (NOT NAMq) OR CWTH AND NOT NAM2) THEN 40516 
GOERR (MY INCMPLT%»6)3 20516= 
If UNLK THEN ALBASES+3 ] SRACBASE+4) 4 23"14" ELSE 
Ip LOK THEN ACBASE*3]SsACBASES4I] 32 0 ELSE 


BEGIN 
-ALBESE+3}FF3"14"s AC BASES4) 420; 
ENDS 


68003150 
68003200 
68003300 
68003400 
68003500 
68003550 
68003600 
68003650 
68003700 
68003800 
68003900 
68004000 
68004100 
68004200 
68004300 
68004400 
68004500 
68004510 
68004520 
68004525 
68004530 
68004540 
68004600 
68004700 
68004800 
68004850 
66004900 
68005000 
68005100 
68005110 
68005120 
68005130 
66005200 
68005300 
68005400 
68005500 
68605510 
680055114 
68005513 
68005514 
66805515 
68005517 
68005518 
68005520 
68005530 
66005535 
68005540 
68005600 
68005610 
68005700 
686005800 
68005850 
66809900 
68005910 
68005920 
68005930 
68005940 
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0065 
0065 


0065 


0065 


0068 


0069 
0069 
0073 
0073 
0073 
0073 
0076 
0078 
0087 
0068 
0088 
0089 
0089 
0090 
0093 
0093 
0094 
0094 
0096 
0097 
0098 
0098 
0098 
0099 
0100 
0100 
0102 
0107 
0108 
9109 
0409 
0109 
0410 
Oili 
0113 
Q144 
01145 
0115 
0116 
0118 
0118 
0118 
0418 
0120 
0122 
0122 
0124 
0431 
0135 
0139 
0140 
0443 


Bi 
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A CBASE+5]8SREAL CSRC) &@ REAL COBUI0 4684784) & FORGETSETLC4atgetoy3 


IF NOT NAM3 TREN A [CBASE*6)]88USERCODES 40516" 
If WTH THEN &% CHECK FOR GUARD FILE 
BEGIN 
A [BASE*3 13% = A [BASE42)3 A03516" 
A CBASE*4]441F NAMG THEN A CBASE47] ELSE USERCODES 40516" 
FIND CLLGTAM C3387) 202A [BASES+2I5A [CBASE#4)eUSERCODE)3 20516 
TEMB8#73 40516° 
DOING 82 13 
WAITFOR #3 IAM) 
GO TO EXITS 
END’ % IF “"WTH" 
SECUR! 
IF NOT OBY THEN SECURE CACBASE+1),AC BASE +6) sACBASE+3) 2 AL BASE *4I)3 
IF A CBASE41]-€4236) EQL " " THEN 205168 
IF NOT SRC THEN SECURE (A CBASE41)e66236) 5A [BASE+6) 9A (CBASE*+3]— 
A CBASE+4))i % QBVECT 40516" 
TEMP 863 20516" 
PARAMtsIF SRC OR O8J OR A (BASE+1}e(42t6) NEQ " " THEN 1 ELSE 23 
A CBASE*5)-C42%2] t*PARAM3 40516" 


LIBMSGCTR %= PARAM; 
LIBMTNCE 3% TRUE, 

DOING t= 23 

WANT #3 WAITFQR %# VMCPMSG3 
GO TO &XIT3 

END CASE O38 


Pere rere eee eee eee ere rere errr er rer rrr reer errr rs re ee ee re re re 


BeGIN % CASE 1 * RESULTS OF DIRECTORY SEARCH 


IF 


IF 


EVENTS €1) LSS 0 THEN & NO GUARD FILE ’0516" 


BEGIN 

WORDS aA [BASEF2]3 205162 
MSGPTR te 363 

GO ERR2s 


END3 

EVENTSCA]e03686) NEQ 9 THEN % NOT "LOCK" FILE 

BEGIN 

WORDISA [BASES2]3 20516" 
MSGPTR t= 633 

GO ERR2s 

ENDS 


OBJ t8 BOOLEANCACBASE +5) o£ 468493 


SRC ts BOOLEANCACBASE4+5),(47411)3 
Go TO SECUR; 
END CASE 13 

Pree rere ere ef@eeeoeteoereeaneatene COHORT HTHR HEHE Oe HAR eenteaeenene 
BEGIN &% CASE *3 e RESULTS OF LIBRARY MAINTENANCE 
WORD$ aA CBASE*+5),042%2) + 53 *0516@ 
FoR Is"6 STEP 1 UNTIL WORD DO *0516" 
If A CBASE*I)] NEQ 7 THEN % SECURITY MAINTENANCE IGNORED %0516= 


BEGIN 
LITOUT C™ERRS 


"»NOCRLF 25 40516 

MSGPTR & 363 
IF A. CBASE+1],£616) EQL 0 THEN 40516" 
BEGIN 0516 
A (BASES) e £686] sareny BO516" 
IF A [CBASE+]],01296] LEQ 9 THEN z JE "018010" 0516" 


A [BASES1), C1I2t36)]ISFILENAME,[6836]3 40516 


688005950 
68005960 
68006000 
68006100 
68006210 
68006220 
68006300 
68006400 
68006500 
68006600 
68006700 
68806800 
68006900 
68007000 
68007050 
68007100 
68007450 
68907200 
68007300 
68007350 
68007400 
68007300 
68007600 


68007700 © 


68007800 
68907900 
68008000 
68008100 
68008200 
68008300 
68008400 
68008500 
68008600 
68008700 
68008800 
68008900 
68009000 
68009100 
68009200 
68009300 
68009400 
68009500 
68009800 
68009900 
68010000 
68010100 
68010110 
69010120 
68010200 
68010300 
66010400 
68010500 
68010510 
68910520 
68019530 
68010540 
66010550 


DODD OH a a a tt a st Ht AHO TY VO BH A BDO 


ee, = Hee TSM oe 


ore Be 


: fae 
eS 


ea 
7 


CHECKS 
IF 


GO 


ENO; 
LITOUT (™ A CBASE+] J eCRLEF D3 
ENDS 


ACBASEJ80 THEN ITAM$#0 ELSE 


BEGIN 

TemACBASEIT eC 33815]3 IMAXtealBASE],018815);3 

PUB teBCACBASE I e£f1541]94 LOKIRBCACBASE J ef16%1)9)3 
UNLKSaBCACBASE) C1731) 2% 

IF B CFORGETSETS=A (BASE4+5)404432]) THEN SRCIBFALSE 
ELSE SRCt#B CA CBASE+5) 23 

IF FORGETSET & 2 THEN OBJt#FALSE 

ELSE OBJ8#5 CA CBASE+5)¢(4681))3 

GO TO RESTRT3 


ENDS 
TO EXITS 


END CASE 23 
END ALL CASES3 


ERR13 
ERRSW ts 
MSGPTR 2s 


AC1I3 
83 


TAM ts VERROR3 


GO TO Ex! 
ERR2t 
LITOUTCME 


T3 
RRs "sNOCRLF D3 


LITOUTCWORD»CRLF D3 


GO TO CHE 
EXITS 
END PROCE 


CKz % CHECK FOR MORE PARAMETERS 
DURE LOCKITS 


40516* 
30516" 


20516 
’Q516" 
40516° 
40516" 


Bt ae Re ee EEN ERE EERE EEE KER 


PRACEOuURE 


THPEITCLOWeAds BOOLEAN LOWS ARRAY ALO]3 


p CSUR SCEPC SSCS ESE SCE LESSEE ES ESE CLEP TEES SECS ESSE CCC SS ELEC CLES AS See SY 


BEG] 


GIN 
REAL T,WORDS 


BOOLEAN 
LABEL. 


$Q3 


EXIT3 
IF SCHEQDULINE THEN GOERRC("TAPE 
IF DEVICESCONRAC OR DEVICEsBIDS THEN GOERR( "TAPE 


240)3 
%956)3 


CASE. DOING OF 


BEGIN 


TEEPE EEPELITEUERETES IREPORT PERE EEE ee ErErerery 


BEGIN 


IF 


% CASE O 
FILENAME # O THEN GOERRO"NO FILE%s1)3 


ACBASE#2] te ACBASE+1) #t# 1003 %& SEQ, PARAMETERS 
If T 3 ACSREG?*BASE*ACBASEJ) «FF NEQ 0 THEN % PARAMETERS GIVEN 


BEGIN 
BO BEGIN 


IF. (WORD SBALINCCSREGII2,0393) NEQ O THEN SCHR, STRING 


MATCHCWORD. [LO842)5"SEQ ") SQ %* TRUE 


START OF SEGMENT 


415 15S 


114 JS 


START OF SEGMENT 


68010560 ¢c 0234 
68019600 P 0234 
680190700 T 0236 
68010710 T 0238 
68010800 YT 0239 
68010810 Y O24, 
66010820 tT O24 
68010830 Tt QO247 
68010840 T 0250 
66010842 ¢ 0254 
68010844 ¢ 0254 
68010846 ¢ 0257 
60010848 ¢ O2a5Sa 
68010850 T 0264 
680190860 T (0262 
680190900 7 0262 
68811000 T Q262 
686011100 T 0263 
ekaaetkagkwar 
4 LONGs NEXT SEG 
68011200 YT 0264 
68011300 T 0264 
68011400 T Q265 
68011500 T 0266 
68011600 T 0267 
68011700 T O267 
68911800 7 0268 
68011900 TY 0269 
68012000 T 0270 
68012100 y 0273 
68012200 + 0273 
282 LONG», NEXT SEG 
69900000 T 0064 
69000100 rt 0061 
69000200 T 0064 
69000300 T 0064 
69000400 T 00614 
eeaeeveeeden 
69000500 fT 9000 
69000600 T 0000 
69000700 T 9000 
69000800 Fr 0007 
69000900 T 0016 
69001000 T 0016 
69001300 rT 0016 
69001200 Tf 0016 
69001300 Tt 0016 
69001400 T 0024 
69004500 T 0027 
69001600 rt 0030 
69001700 T 0034 
69003800 tT 0032 
69001900 fT 0035 


415 
114 


8 


116 


+ 


ELSE GOERRCWORD 8) 

ELSE IF WORDsel(182) & O THEN ACBASE*+]1) t* WORD,.C21327) 

ELSE IF WORDeC1#2) = 3 THEN ACBASE*2) 8% WORD,C630818) 

ELSE GOERRC(" "@WORD[L684286)]28)3 

ENO UNTIL QECRCT) LEQ 0} 
IF NOT SQ THEN GOERRC"WHAT, 
ENDs 


%234)3 


WORKCO] ta OF 
WORKE1] 82 CLL OSYSTEMI&CREALCFILETYPES8) (38473193 
WORKE2] t= USERCODES 
WORKEC3) ts SOURCEFILES 
WORKE7] 8% IF SQ THEN ACBASE4+1) ELSE 03 % BASE FUR SEQ; 
WORKEC AQ) 82 ALBASE*2]3 % INCREMENT FOR SEQ 
DISKWRITECESP1)3 
RUNL #*® “PAPER "3 
RUN2 83 "CANDE "3 
ERRSW t YSERCODES 
WANT #2 VDISPATCH3 
DOING t# 33 
ENDS % CASE O 
Roe ee POO e POOP HH HHO EDR ERE HORE OOH EOE DESEO OH ORES OR EH OREO REe 
BEGIN % CASE 1 
If EVENTSC1] = 1 THEN % EQV OK 


BEGIN 

SOURCEFILE &* MAKEFNC"™LS"sLL)3 
GOODOBJ $= FALSE} 

END3 


IAM ta MSGPTR t= O3 
WRITEASTERISK t= TRUES 


% VOIO 


ENO} % CASE 1 
END ALL CASES} 


EXIT# 


END PROCEDURE TAPEITS 


Ree aa HR REE HWE ER HK RE KAMEHEHHE RTE AKEKAERE NNER KH 


PROCEDURE CHARGEITC(CLCWsA)3 BOOLEAN LCW3 ARRAY ACO); 
OPEC ee PEc TCC eC CPE PPE Torre ce Ter rici rrr irre sires 


® VOID 
% VOID 
LABEL 


REAL 


BEGIN 


EXITS 


T3 

IF SCHEDULINE THEN GOERRC CHARGE 240)3 

IF ACSREGISBASE*ACBASEJ]4FF NEQ 1 THEN 
GOERRC"NOQ CODE%+7 )3 

T $= IF ACINCCSREGIIJ6C383) = O THEN 
DECCONVCACSREG) .C21827)) ELSE 

CHARGE ## TIMECONVOPTIME oF ALSE D3 

LOGOFFCLCWs ACH) )5 


ACSREG),06%42]3 


69002000 T 0038 
69002100 T 0039 
69002200 T 0048 
69002300 T 0053 
69902400 T 0062 
69002500 T 0064 
69902600 T 0074 
69002700 Tt 0071 
69802800 T 0072 
69002900 YT 0075 
69003000 T 9077 
69003100 T 0078 
69003200 T 0062 
69003300 T 0084 
69003400 T 0Q87 
69003500 7 0089 
69003600 T 0090 
69003700 7 0094 
69003800 ~ 0092 
69003900 T 0092 
69004000 T 0093 
69004100 T 0093 
69004200 T 0093 
69004300 T 0094 
69004400 T 0094 
69004500 T 0096 
69004600 T 9099 
69004700 T 0099 
69004800 T 0100 
69004900 TT 0103 
69005000 T 0103 
69005100 7 0103 
START OF SEGMENT weteetennane 
117 IS 3 LONGs NEXT SEG 
69005200 T 0104 
69005300 T 0104 
116 IS 109 LONGs NEXT SEG 
71000000 T 0064 
71000100 T 0064 
71900200 T 00614 
71000300 T 0064 
71000400 T 0064 
71000500 T 0064 
71000600 T 0061 
START OF SEGMENT seee0eawne 
71000700 Tt 90000 
71000750 T 00900 
74000800 tT 0007 
71000900 T 0010 
71001000 fT 0046 
71001100 T 0018 
71003150 T 0023 
71001160 T 0026 


117 
116 


8 


116 


asta ae : 


| ad 


EXITS 


LOGONTIME &* TIMEC1)3 

CHARGE ia T3 

TOTOTS #ETIMESSPTIMESSINPUTCTRISO$ 
LOGONCLCWeALC#))3 

WRITEASTERISK &8 TRUE} 

TAM $3 03 


END CHARGEIT3 


ERC CIE CES C CCC CC CSCS ECCS SECS ISOC OCCCOCOCCSOCLCLSCLESICCOSL SCARS eee ae 


PROCEDURE SCHEDULECLCWSA)S 


BOOLEAN LCW3 ARRAY ACQJS 


SEU SES PR CECA S SCEPC REECE CLES SCEPC OPES ESS COS SESE CE CLAS EL SSE SC EL ESE S 2 


BEGIN 
LABEL 


BOOLEAN 
REAL 


ERR» EXITS 


AFTERs LISs TOIT 
WORDs TYPEs PCe I3 
CASE DOING OF 


BEGIN & CASES.» 


BEG! 


N % CASE QO 
IF TPCOUNT NEQ O THEN 
BEGIN 
LITOUTC"WAIT, “seNOCRLF)3 
TEMP8*43 WANTS SVUPDATES 
END ELSE 
BEGIN 
CLEARCWORK(0],29)3 
WORKOEC A] 8% LL&VMCPMSG[3384197)3 
WORKE5SJ] :sSQURCEFILE3 
WORKC4]8*wORK(6]&sSUSERCODES 
WORKEC72 &* MAKEFNC™9OS"sL Le 
WORKC 9] 3 "CHARGES 
PCS mACSREG$ aBASEPACBASEIJ),FF3 
WHILE I LSS PC DOD % PICK UP ALL PARAMETERS, 


% NEED MERGE, 


BEGIN 
INCCI)4 WORDSSALINCCSREG)I;3 
TYPE ** IF WORD,C2!4] = O THEN 0 & N OR "Ng 
ELSE IF WORD,C1!2) = 3 THEN 2 & 4N,y 
ELSE IF WORD,Ci%2) 2 1 THEN 2 & SPECIAL CHAR, 


ELSE 33 % ALPHA WORD, 


CASE TYPE OF 


IN % PARAM IS’) Ne #N 
If NOT AFTER THEN GOERRCOECCONVCABSCWORD) 28)3 
IF WORD LSS 800 OR WORD GTR 2400 OR 
DECCONVCWORD)5£3686] GTR 5 THEN 
WORKC8] &$* WORDS AFTER tae FALSE 
ENO N CASES 
GQERRCDECCONVC WORD) 28)3 & PARAM IS) #N 
% CASE 2s (SPECIAL CHAR) 
IF 4.18 &* WORD,CF = "/" THEN 
IF TOIT THEN GOERR (*NQ USER239) ELSE 
IF I * 2 LEQ PC THEN FIXUSER (Ie As EXT Ts TRUE) 


GOERRC" TIME 


BEGIN 


"e41)3 


30501" 
40501" 
ELSE 


71001370 
71001180 
71001190 
71001200 
71001300 
74901400 
74001500 
71001600 

43 LONG, 


at ttt 


118 IS 


72900000 
72900100 
72000200 
72900300 
72000400 
START OF SEGMENT 
72000500 
72000600 
72000700 
72000800 
72000900 
72001000 
72001100 
72001200 
72001300 
72001400 
720901500 
72001600 
72001700 
72001800 
72001900 
72002000 
72002050 
72002100 
72002200 
72002300 
72002400 
72002500 
72002600 
72002700 
72002800 
72002900 
72903000 
78003100 
72003200 
72903300 
72003400 
72003500 
72003600 
72003700 
72003800 
72003805 
72003810 
72003820 


OOO AAA HAH HHA HHH a tt tt A Ht st se ta 


0027 
00289 
0030 
0035 
0036 
0039 
0039 
0040 
NEXT SEG 


0061 
0064 
0064 
0064 
0064 


week eke eee 


0000 
0000 
0000 
0000 
0000 
0000 
0002 
0002 
0003 
0005 
0005 
0008 
0009 
0011 
0013 
0015 
0017 
0019 
0022 
0023 
0023 
0026 
0028 
0034 
0033 
0034 
0035 
0035 
0035 
0042 
0044 
0054 
0056 
0056 
0062 
0062 
0064 
0071 


8 


119 


y 


sore Business § oma. Inc. ex 


Moc 


BEG! 


ELSE 40501" 
GOERR (WORDs8)3 %O501" 
END CASE 23 
BEGIN % CASE 34 CALPHA WORD) 


WORD 3@ WORD,(6842J3 


MATCHCWORDs "TQ *) 
MATCHCWORDe"AFTER ") 


ELSE 
ELSE 


AFTERStSLIBsteNnOT CTOIT#RTRUE)D 
LIBtSsTOITIENOT CAF TERS S TRUE) 


MATCHCWORDs "CHARGE ") 


BEGIN INCCT)3 WORDssaACINCCSREG))3 
WORKEC9ISHIF WORD,C383) GTR O THEN % ALPHA 
WORD. C6242) ELSE DECCONVCWORD.(C6842))5 END 


ELSE % 
IF TOIT THEN WORK(3) %# WORD 
ELSE IF LIS THEN WORKE6)] t= WORD 
ELSE WORKCS] $3 WORDS 
END CASE 33 
END ALL CASES; 
END ALL PARAMS; 
IF WORKECS5] = 0 THEN GOERRC"NO FILE"* 123 
If WORKE3) © 0 THEN GOERRC"NO FILE™s 3823 
IF WORK(3].(C42#6) # % ™" THEN GOERRCWORKE( 3) 242)3 


FINDCLLSIAMC33S4LS7 J -QO*eAL BASE] SRWORK(5) »WORKCO)sUSERCODE); 
ACBASE+1) %= WORKE3]3 
TEMP $3 23 


DISKWRITECESP1)3 


DOING $= 1413 wWwAITFOR tt IFAM} 


END IF TPCOUNT;: 
END DOING O3 


N % DOING = lp 
IF EVENTSC4)] LSS 0 THEN GOERRCACBASE)22)3 
IF EVENTS(1] & O THEN 


RETURN aFTER FIND ON INPUT FILEe 
% DOES NOT EXIST, 


GOERRCACBASE)»,24)3 & SECURED FILE, 


FINDCLUSITAMC 3304187 J ,0eAC BASE +1 J, USERCODE »USERCODE D3 


DOING 


t= 25 WAITFOR ** TAM} 


END DOING 43 


BEG! 


EXIT! 


PROCEDURE 


N % DOING & 2» 
IF EVENTSE1)] GEQ 0 THEN 
LITOUTC WAIT. 


RETURN AFTER FIND ON OUTPUT FILEs 
GOERRCACBASE+1)93)3 
"»NOCRLF D3 


EQJMSG te NOT CONCISE$S WRITEASTERISK t#® CONCISE 


RUNL $% “SCHEDUL"; 


RUN2 $% "CANDE "% TAM %& VDOISPATCH: 


ERRSWSAUSERCODES % USED BY DISPATCH, 
END OOING 23 
END ALL CASES DOING OF; 


ENQ OF 


SCHEDULES 


WCAPSECPECICCC SC CESSES LESSEE SCC EL OSC ASS TSEC CPSC CC CLC LOLS LT SLC SSC e Terie S| 


SCHEDSTATUS (LOWsA)s 


BOOLEAN LCWS ARRAY ALO)3 


Ba WR EEE WER NEE ENR EERE NEM AHERN ERE RHEE 


BEGIN 


REAL T3 


START OF SEGMENT 


START OF SEGMENT 


72803900 P 0076 
72003905 ¢ 0076 
72004000 T 0084 
72004100 t 0082 
72004200 y 0082 
72008300 T 0084 
72004400 T 0086 
72004500 T 0088 
72004600 T 0092 
72004620 T 0094 
72004640 T 0094 
72004645 T 0104 
72004650 T 0103 
72004660 T 0108 
72004700 T 0108 
72004800 T 0414 
72004900 T 0413 
72005000 T 0116 
72005100 T 0116 

Rana 

5 LONG» NEXT SEG 
72005200 Tt 0417 
72005300 T 0117 
72005400 T 0125 
72005450 fT 0132 
72805500 T 0138 
72805600 T 0143 
72005700 T 0149 
72905800 T 01514 
72005900 T 0145} 
72006000 T 0152 
72906100 T 0452 
72806200 T 0158 
72006300 T 0164 
72006400 T 0169 
72006500 T 0170 
72006600 tT O171 
72006700 T 0174 
72006750 tT 0477 
72006760 T 0178 
72906800 T 02185 
72006850 T 0188 
72006900 T 0189 
72007000 T 0189 

weeeeeketese 

4 LONG» NEXT SEG 
72907100 T 0190 

201 LONG» NEXT SEG 
73900000 T 0061 
73000100 T 0064 
73900200 T 0064 
739000300 T 0064 
73000400 T 0064 


120 
119 


121 
119 


om 


‘sore Bosnt.z Foimet, inc. sv Pe 


ee 


LABEL ExIT3 
CHR RHCHEH EHR ECHO SEHR RHEHHHTH HH HHP HHP OR HRH OE HH HRHEH HOHE ROO HEHHHOHHEHR REO EH ATH GOSH HOF 
REAL STREAM PROCEDURE STMESS(WsNPE1,E2)3 VALUE EL-E2s 
POET PPT TEPER OPEREPELeRTerererereeerrrerreerererereeeereee err re yee e 
BEGIN LOCAL DV4 LABEL ERR» SCH» RUNS EXTs DUNS 
DIsaws ClieCI+E33 GO ERRZ GO ERR GO SCHS GO RUNS GO DUN; 
DStsS8LIT"ABORTED,"3 TALLY3#83 GO ExT} 
DUNS DSt35LIT"DONE,™3 TALL Y#s54 GO TO EXT3 
SCHs DS#sOLIT@SCHEDULED,."3 TALLY3#103 GO TO EXT; 
RUNS OSsS8LIT*RUNNING(®3 TALLY#893 DVSSDI3 
DIseLOC E2s OSte7F ILLS DIFwOVS STtelLOc Eas 
BCIF Scw" “ THEN ST$sSle1 ELSE 
BEGIN DSteCHR3 TALLYteTALLY¢is END); 
OSs#LIT")"5 GO TO EXT 
ERR$ DSts4LITMERRe"S SIERNS ST tastes DSte7CHRse TALL YE S113 
EXT: STMESS %= TALLY} 
END STREAM PROCEDURE STMESS3 


CASE DOING OF 
BEGIN 
BEGIN % CASE 0 
IF (TIsALSREGESBASE*ACBASEJ]),FF NEQ@ 4 OR 
ACINCCSREG)],0353) = 0 THEN GOERRC "NAME "6)3 
ACSREG).C¥195) t= 03 
MATCHCVERBTABLELT se (989 I eCOS42zo"STATUS %) 


SCHEDSTATCACSREG]) ELSE SCHEDSTOPCALSREG])3 
WAITFOR %% IAMS DOING #2 43 
END CASE 03 
PEEP UPEREEPEPEUePU Pere eerEreererraerere rere rrer errr ree ere re reer ere 
BEGIN ® CASE 1 
IF EVENTSC4] LE@ 1 THEN 
BEGIN 
MSGPOINTER %* EVENTSC4] + 363 
END’ 


WRITEASTERISK?#FALSE3 
TisSTMESS (WORK (0) + ACSREG]» EVENTSE1)* DECCONV(EVENTS(2]))3 
TWXOUTCLL es WORK(OJ] T2123 
IAM #8 Q3 
END CASE 13 
END ALL CASES} 


EXIT! 
END OF SCHEDSTATS 


Re HE TEER EERE REE EE EER ENE ERE 
PROCEDURE LISTFILECLCWsA)3 BOOLEAN LCw) ARRAY A[O]3 

RRA E EH REE EEE EERE ERE E EERE AER EERE 
BEGIN 


START OF SEGMENT 


73000500 
73000600 
73000700 
73000800 
73000900 
73001000 
73001010 
73001400 
73001200 
73001390 
73001400 
73901500 
73001600 
73901700 
73001800 
73001900 
73002000 


73002100 
73002200 
79002300 
73002400 
73002500 
73002600 
73902700 
73002600 
73002900 
73003000 
73003100 
73003200 
73903300 
736003400 
73003500 
73003600 
73003700 
73903800 
73003900 
73004000 
73004100 
73004200 


START OF SEGMENT 
3 LONGs NEXT SEG 


123 1S 


122 15 


73004300 
73004400 


wewetentwe 
0000 
0000 
0000 
0000 
0000 
0000 
0002 
0003 
0005 
0008 
Q009 
0010 
0012 
0012 
0013 
0015 
0016 


Se ee eee 


0017 
0018 
00148 
0018 
0022 
0034 
0033 
0033 
0046 
0048 
0048 
0048 
0048 
0049 
0050 
0052 
0052 
0054 
0059 
0064 
0064 
006a 


TRE RARE LES | 


AHHH tsa st ta Ht ot tt 


T 90062 
T 0063 


66 LONG, NEXT SEG 


74000000 
74000100 


74000200 
74900300 


T OO64 
T OQ614 


T 0061 
T 0064 


i2e 


123 
lee 


8 


DEFINE 

UNK = SPECS,C iti)]#s BAS & SPECS. 241)#» ALG = SPECS6L adres 
COB = SpPECS,C 441)#» FTR » SPECS,£L 581)#» TSP = SPECS.«C Ot1)# 
XAL = SPECS,C 7s1]#* SEQ = SPECS,£ 881)#» DAT = SPECS.C 981)8 
LOK = SPECS,Ci0s1Ij# INF & SPECS,CAL¢1]#%» C68 = SPECS.L1201)# 


DEFINE 

SRo = SPECS,C47¢1]#» OB = SPECS. C4641] 4%» LKD © SPECS,C4SSL Ie» 
UNL = SPECS,C44t1)]#» SOL = SPECS, C4381)#, PUB = SPECS,C4a31)#3 
BOOLEAN FROM» TOO» SPECS» LITERAL» HAVELITERAL» HAVEOUTPUTs 
HAVEUSER} 

REAL I» PC» WORD» NAMECOUNTs TYPE3 

LABEL RUNITs» GETOBVECTs ERR» EXIT; 


Bavecreg tere rere eee e rere sone re sates e ee ee sees eee ee sees Henn ee eneneeretees 


STREAM PROCEDURE HEADINGCWORK )3 


errr eee rT ee ere TEPER TL UTE TER TUE ST OT ORT ER CCT SE TPES Cee CT eT ere re 


BEGIN 
DItswORKS DSta39LITYNAME TYPE RECS SEGS CREATED "3 
OSt2qgiLIT"ACCESSED W/R W/B SF LOCKD BY "3 


END STREAM PROCEQURE HEADINGS 


TRUEE COTES OTP C LEME CUCL ERE CUETO E OUP EEEUECTTER TT TUE TEC er Cre eT Ceres 
STREAM PROCEDURE OUTFORMAT 
CWORKsFILNAMSFILTYPs RECS* SEGSeCDATs ADAT»WPReWPBs SAVFACs SECNAMs AFLG) 3 
Bacoeens CH HEH ee HHHHH ARH EHO HRA RHHEH EHR RE HEHEHE TE SHEP HROHRHEKR OTERO ROR EME eR ee 
VALUE FILNAMeFILTYPs RECS? SEGS+ COAT» ADATs WPR*WPBs SAVF ACs SECNAMs AFLGS 

mre LOCAL OV3 

OItswORK; STssLQOC FILNAM; 

OCSIsaSIe13 OS#s7CHRsA OSteLIT” ")s & FILE NAME AND TYPE 

2COS335pECs OVEROIZ OL tepleSs OSta4FILLs O1%=#0V)3 % RECS AND SEGS 

OStaaLIT"™ "3 OSteB8CHRs & CREATION DATE 

OStagLIT" "3 AFLGC(D] $2Ol"33 OSta3LIT" « %)5 

DStegCHRs % ACCESSED DATE 

30DSie50EG3 DVESDIs Oi saDle5s DStaqFILLs Ol sadv); 

SItesleis DSss2bIT" "5 OSIS7CHRE OSsSeOL IT" "3 & SECURITY NAME 

END STREAM PROCEQURE OQUTFORMAT3 


eee Peer ere eee rere rr reer errr rere rrr rrr Sree ee ere Pree 2 er ee eee ee ee 
PROCEDURE PRINTITCFILNAM*FILTYP)JVALUE FILNAMSFILTYpPsREAL FILNAMSFILTY ps 


IT EUEUPETELERTERECEE UR ULE UTEP TEE LUPE UEPTPEPETPPeTeTECEPEPEeTrrrrrereree 


BEGIN REAL Ie SECNAM# LABEL SUMMj 


SECNAM te TF BOOLEANCWORK(5),0131)) THEN WORK(5),(6%42) *% LOCKED 
ELSE IF WORK(SJ#12 AND WORK(6] NEQ 12 THEN "PUBLIC ” 
ELSE IF wORK(5)812 AND WORK(6)812 THEN "UNLOCKD" 
ELSE " "3 
FOR y#810 STEP 1 UNTIL 29 DO IF WORKECIIJ20 THEN GO TO SUMM3 
SUMM$ 
OUTFORMATCLoFILNAMSFILTYP» (WORK? 141) eC CL"40)XWORKLB))>» 
DATECONVCWORKE 3] .030918) )»DATECONVCWORK( 3) .£12918) )* 
WORK(O], C1414) HORKEO] €15915)sWORKLE3) .C2310] »SECNAM>FALSE)S 


74000400 


START OF SEGMENT 


74000500 
74000600 
74000700 
74000800 
74000900 
74004000 
74001100 
74001200 
74001300 
74001400 
74001500 
74902900 
74003000 
74003100 
74003200 
74003300 
74003400 
74003500 


74903600 
74803700 
74003800 
74003900 
74004000 
74004100 
74004200 
74904300 
74004400 
74004500 
74004600 
74004700 
74004800 
74904900 
74005000 


74005100 
74005200 
74005300 
74005400 


START OF SEGMENT 


74005500 
74005600 
74005610 
74005620 
74005700 
74005710 
74005800 
74005900 
74006000 


T 


wae weed ew 


Se oe ee ee ee ee ee ee 


ee ee ee 


See Lee 


0061 


0000 
0000 
0000 
0000 
9000 
0009 
0000 
0000 
0000 
Q000 
0000 
0000 
0000 
0000 
0000 
0000 
0005 
Q011 


0011 
ae 
OO%4 
O01! 
O01 
0014 
0012 
0012 
0014 
0015 
0016 
0019 
0019 
0024 
0024 


0024 
0024 
0024 
0024 
eee thee 
0000 
0004 
0006 
0010 
0041 
0019 
0020 
0024 
0027 


124 


125 


TWXOUTCLE SL CO], 7201)3 


END PROCEDURE PRINTITS 
125 


TERE LUEPERETELETER EEUU EEE TE EET PELE TePTreeerere ere rrr rs ir 

REAL STREAM PROCEDURE CHKCFIELO)4 VALUE FIELDS 

Reema hea HOO eH OHH ORE H HORE ERT OE ORG HOHE OHH O OH EHR E HEE R OO RR OR ERe 
BEGIN % COUNT NUMBER OF BITS ON IN FIELD 


STte. OC FIELOS ST&sS1+53 

18CIF SB THEN TALLYISTALLY413 SKIP SB)3 
CHKI TALL YS 

END STREAM PROCEOURE CHK3 


POPU EPOPTEPEEEREPEE REP E RE rerererererrrerree errr rererrrrrr er rere sa ee 2 ee 


ALPHA PROCEDURE GETTYPE CFILETYPE)S VALYE FILETYPES INTEGER FILETYPES 


BEGIN 40506 
IF FILETYPE GTR NUMOFTYPES THEN FILETYPE?&0;3 20906 
GETTYPEtsIF BOOLEAN CWORK (4),(43031)) THEN "OByYc 2" & 40506* 


TYPETABLE CFILETYPE} (308696) ELSE TYPETABLE CFILETYPEJ3 
END OF GETTYPEs 20506" 


LPUPeee ee Re eE eee eee errr err rerrrererreerrerererrrrerrrer rrr errr rere ree 
BOOLEAN STREAM PROCEDURE MASK(BIT)4 VALUE BIT; 


BEGIN 
Ols*LOc MASKS BITCSKIP DBs OS8SSET3 


END MASK3 


Sere er ee rere eee ee eee eee errr er rarerererrerrrerrrr rer rr rrreerrererere rey 
CASE DOING OF 


BEGIN 
BEGIN % CASE 0 * SYNTAX ANALYSIS 


LABEL DUMMY} 


Is 


74906100 
74006200 


T 
TY 


35 LONGs 


740906300 
74Q06400 
74006500 
74806600 
74006700 
74006800 
74006900 
74907000 


74007010 
74007020 
74007030 
74Q07040 
74007050 
74007060 
74007070 


74007100 
74007110 
74007420 
740074330 
74007140 


74007150 
74007200 
74007300 
74007400 
740074810 


START OF SEGMENT 


PC % COMMONCELL4 & TRANSFERRED FROM PRQCEQURE "LISTIT"™ 
CLEARCWORKs29)02 & ZERO OUT WORK ARRAY 
WORK(2]!eWORKEAIESUSERCODES WORKLOJ3s"TELETYP"™S x DEFAULT OPTIONS 
NAMECOUNT ¢t# 203 % PQINTER FOR FILE NAMES 
WHILE I 48S PC DO 
BEGIN 
Ite J + 43 
IF (CWORDS#ALSREGS#SREG419)e01327%1 THEN 
IF MORD2"/" THEN WORDS#"FROM " g@ 4(384583)3 
IF WORDs£3%3)%0 THEN GO ERR ELSE wORD.£135)%203 
MATCHCWORD? WLITERAL") 
IF HAVELITERAL THEN GO ERR ELSE LITERAL taTRUE 


74007500 
74007600 
74007700 
74007800 
74007900 
74008000 
74008100 
74008200 
74008300 
74008400 
74008500 
74908600 


ee | 


Oanranadrnna 


ee | 


eee ee ee Lee 


0030 
0032 
NEXT SEG 


0024 
0024 
0024 
0024 
00285 
0045 
0027 
0027 


0028 
0028 
0028 
0028 
0034 
0032 
0035 


0038 
0038 
0036 
0039 
0044 


0042 


0042 
0042 
0042 
0042 
eetkakee 
0000 
00014 
0002 
0006 
0006 
0008 
0008 
0009 
0012 
0016 
0024 
0024 


124 


126 


aipes: orm, tac. ov 


ore By 


és ' 
: MAL 


evi tl 
a a * * % : | % 4 Py 4 e *e . 
, 


ELSE MATCHCWORD,"TO ") 74908700 T 0032 

IF HAVEQUTPUT THEN GO Ee ELSE TOOIsTRUE 74008800 T 0032 

ELSE MATCHCWORD, "FROM 74008900 T 0040 

IF HAVEUSER THEN GO cap ELSE 80501*% 74009000 P 0040 

BEGIN *0504° 74009005 ¢ 0086 
FROMSaTRUES - £0501" 74009010 ¢ 0048 

IF I # 2 LEQ PC THEN FIXUSER CIeAs EXIT» TRUE)DS 20501" 74009020 ¢ 0048 

ENO %0501" 74009095 ¢ 0053 

ELSE IF TOO THEN 74009100 T 0053 

IF HAVEQUTPUT THEN GO ERR ELSE 74009200 rT 0054 

BEGIN WORK{6]#=WORDS TOOSB®NOTCHAVEQUTPUTSSTRUE)2 END 74009300 ~ 0057 

ELSE IF FROM THEN 74009400 T 0044 

IF HAVEUSER THEN GO ERR ELSE 74009500 ~ 0064 

BEGIN WORKCG)]##WORDS FROMFENOTCHAVEUSERISTRUE)S END 74009600 T 0065 

ELSE IF LITERAL THEN 74009700 t 0068 

IF HAVELITERAL THEN GO ERR ELSE 74809800 T 0069 

BEGIN WORKESJ$SWORDs LITERAL SSNOTCHAVELITERALYSTRUE)S END 74009900 T 0072 

ELSE MATCHCWORDs "PRINTER" ) 74910000 tT 0076 

IF HAVEQUTPUT THEN GO ERR ELSE 74010100 T 0076 

BEGIN WORK(6]#eWORDS HAVEQUTPUT 83 TRUES END 74010200 fT 0084 

ELSE IF TYPE S*=FINDAWORDCWORDS70124335)]+RESWROTABLELOJ218) # 0 THEN 74040300 7 0085 
SPECS##SPECS OR MASKC(TYPE*29xREALC(TYPE GTR 12)) 74010400 tT 00868 

ELSE X ASSUME IT IS A FILE NAME 74011900 T 0094 
BEGIN | 74012000 7 0093 

IF CNAMECOUNTESNAMECOUNT4#1) GTR 29 THEN GOERRC"TOOMANY 23022 74012100 fT 0093 
WORKCNAMECOUNT] t= WORDS & SAVE FILE NAME 74012200 Tt 0402 

END3 74012300 T 0103 

ENO WHILE STATEMENTS 74042400 T 0103 

IF FROM. THEN GOERR("FROM "28)3 74012500 Y 0108 
IF TOO THEN GOERR( "TO "2873 74012600 Y O112 
IF LITERAL THEN GOERRC"LITERAL%s6)3 74012700 T O119 
IF G@HKCSPECS,C1$12)) GTR 1 THEN GOERRC"FILTYPE's 3492 74012800 7 0126 
IF CHKCSPECS,C42%4)) GTR 1 THEN GOERRC"SECURTY"»s8)3 74042900 fT 0135 
IF CHK(SPECS,£46323) GTR 1 THEN GOERR(*SRC@0BU%s8)3 74013000 7 0144 
TEMP ta 73 740339100 fT 0453 
IF CNAMECOUNTS#NAMECQUNT@=21) ® 0 THEN % ONE FILENAME SPECIFIED 74013200 T 0153 
IF CPREVRCW"BASE) GTR 41 THEN % ENOUGH ROOM IN STACK 74013300 T 0155 
BEGIN % LET CANDE DO THE 170 74043400 T 0157 
ACBASE] $3 73 % LOOP COUNTER 74813500 ft O157 
ACBASE*1] &* WORK(21)3 % SAVE FILE NAME IN STACK 74013600 T 0159 
ACBASE+7) $= WORK(4]3 & SAVE USERNAME 749013700 fr 90161 
FINDCLL&ITAMC 338157) eOeWORKE 21) sWORKC4)»USERCODE)4 & SRC 74043800 T 0163 
FINDCLLSIAMEC3394187),0,WORK( 213,068 36] sWORKI 4] ,5USERCODE)S % OBY 74013900 T 0167 
DOING $= 23 74014000 - O4T1 
WAITFOR ta TAM} 74014100 T 0172 

Go TO EXIT3 740134200 T 0473 
-ENOJ |. ; 74014300 7 0175 
WORK(3) s@ REAL CSPECS)3 74914400 T 0175 
WORKC7) &*® NAMECOUNT3 74014500 fT 0176 
OLSKWRITECESP1)3 74014600 T O17? 
IF HAVEQUTPUT THEN % OUTPUT MEDIA SPECIFIED 74014700 T O181 
MATCHCWORK(C6)s"PRINTER™) ELSE 74014800 T O84 
MATGHCWORKCOJa"TELETYP") ELSE 74014900 T 0184 
BEGIN % DISK FILE NAME 740145000 T 0194 
FINOCLLGIAME 33841373 202WORK(6] eUSERCODE*USERCODE)3 74015100 7 0196 
ACBASE+1) #3 WORKC633 & SAVE OUTPUT FILE NAME 74015200 tT 0200 
DOING te 43 74035300 T 0202 


Sv 


Sere 


es 6 


WAITFOR t@ IAMS 
G60 TO EXIT; 
END3 


GO RUNITS % TO PRINTER OR TELETYPE 
END & CASE O 


Reon neegteve THOR HHOHHEHHR ER EH RH ORE HEHEHE HARE RHHEHR HAAR OHM ARH HHH eRe RHEE 


BEGIN & CASE 1 " SEARCH FOR OUTPUT FILE ON DISK 
TF EvENTSEC1) GEG 0 THEN GOERRCALBASE4¢1)]23)3 % ALREADY PRESENT 
RUNIT? 
RUNL Sa "LFILES "4 RUN2 te "CANDE "3 ERRSW ta YUSERCQODES 
TAM t& VDISPATCH) 
EQUMSG ts NOT CONCISE 
WRITEASTERISK 3% CONCISE; 
GO To EXIT 
ENOS % CASE 4 
POPE TTR TEPEU PTET ULUTELEPEPEPETE TELE PEREEEETTELEPETUereerreree 
BEGIN % CASE 2 = SEARCH FOR FILE NAME 
I ts ALBASE] ta ACBASE) = 23 
ACBASE*]) te EVENTSCAIS ACBASE+I 41) a EVENTS(C2),039315]4 % HOR ADRS, 
IF I GTR 3 THEN & WAIT FOR QOBWECT FILE RESULT 
BEGIN 
WAITFOR #3 IAM} 
Go TO EXITs 
END; 
IF ACBASE*3) LE@ O AND ACBASE*S) LEQ O THEN GOERRCACBASE41) 52)3 
TIMEOFDAYCWORKC 2] s TIMECONVCTIMEC1) 2 TRUE) 23 
WORK(O] t& DATE*4 WORKEC1) t= ACBASE+7]3 BLANKCWORK(1))23 & USERNAME 
TWXOUTCLLeWORK(OJ22601)3 
HEADYNGCWORK)2 TWXOUTCLL »WORKCOJ) 2720493 
WRITEASTERISK #8 TRUES 
IF ALCBASE*S] LE@ QO THEN GO GETOBVECTs % SOURCE VERSION NOT ON OISK 
LLOISKREAD ta ACBASE+6); 
WANT $# VDISKREAD3 
DOING ts 33 
GO ExIT3 
ENDS % CASE 2 
Be ceree geared ene see Meee PP aA anata tAnnt dat en ehenah anaes Hteeatteenenanne 
BEGIN % CASE 3 = SQURCE FILE HEADER IN CORE 
PRINTIT CA CBASE + L)-GETTYPE CWORK (4),03696)))3 
IF ACBASE*#3] LEQ O THEN 
BEGIN 


TAM $s 03 GO TO EXIT} 
END? 
GETOBJECT! 
LLOISKREAB i” ACBASE+4]3 
WANT #*® VDISKREAD3 
DOING ta 43 
GO To EXIT3 
ENDS % CASE 3 
OHReeeee tHe He een aHeheeeoeeee tae ahHTaegtnaeteteeesaneeeeeeteeeeene teers 
BEGIN % CASE 4 * OBJECT HEADER IN CORE 
PRINTIT ¢& CBASE + LIJ*GETTYPE CWORK (4),036%6)))3 
IAM 3 O3 
GO To Ex{T3 
END CASE 43 
ENO aLlL CASES3 


20506" 


40506 


126 18 


74015400 
74015500 
74015600 
74015700 
74015800 


209 LONG 


74015900 
74916000 
74016100 
74016200 
74016300 
74016400 
74016500 
74016600 
74016700 
74046800 
74016900 
74917000 
74017100 
74017200 
74017300 
74017400 
74917500 
74017600 
74017700 
74917800 
74017900 
74018000 
74018100 
74018200 
74018300 
74018400 
74038500 
74018600 
74018700 
74018800 
74018900 
74019000 
74019100 
74019300 
74019400 
74019500 
74049600 
74019700 
74019800 
74019900 
74020000 
74020400 
74920200 
74920300 
74020400 
74020500 
74920800 
74920900 
74021000 
74021100 
74021200 


444-4 


» 


AAA A UV HHH Ht tt a tH a Ht A to ttt A to tt 4 


Q202 
02Q3 
0205 
Q205 
0208 
NEXT SEG 
QQ44 
0044 
0044 
00514 
0052 
0055 
0056 
0059 
0062 
0065 
0065 
0065 
0065 
Q068 
0073 
0074 
0074 
0075 
0075 
0075 
0084 
0087 
QQO94 
0093 
0096 
0098 
0100 
0102 
0303 
0103 
0104 
0104 
0104 
0104 
0107 
0109 
0109 
O1it 
O114 
O11s 
0443 
0413 
Q114 
0115 
0115 
0115 
0115 
0116 
Q119 
0119 
0120 


124 


af 


ett 
* 


ERRt ERRSW t= ACSREG]$ MSGPTR &$# 83 JAM $= VERRORS 
EXITS 
END PROCEDURE LISTFILES3 


Ra REE ERNENNEERERRERE REEMA 


PROCEDURE UPBATECLCW2A)3 BOOLEAN LCWS ARRAY ALO)3 


REE EEE ETE AEN EEN ERE RENEE RE KEN 


BEGIN 
LABEL EXIT; 


CASE DOING OF 
BEGIN 


wp TPCOUNT#®Q THEN IAM$*0 ELSE ¥ CASE 0, 
BEGIN % CASE O 
WORKCO] $* DOGHOUSECLLI = 03 
WORKC1] &* CLLYSYSTEMIORCFILETYPES8) (384731) 
BROMONITORBITICO#S47I4)3 
WORKE2I]3"USERCODES WORKC4)SeYUSERLOCS 
WORKE3)] &* SOURCEFILES 
MOWEC 16s WNORDS»C TRANDBASELO)] *WORKE5])3 
ERRSW ts USERCODE3 
RUNL $= "LIST "3 
WANT 13 VGLOSEWORKTABLES 
DISKWRITECESP1)3 
SEND CASE 03 
eo % CASE 4 
WANT #® VOISPATCHS OOING $3 23 ERRSW t= YSERCODES 
UPDATEBIT %s 13 % MARK sMRDATE IN PROGRESS 


RUN2 83 "CANDE 3 
DOING t8 43 


(" CASE 43 

BEGIN % CASE 2 

IF EVENTSC1] 8 1 THEN &% EQ OK 
BEGIN 
SOURCEFILE %% MAKEFNC™4S"sLL)3 
CANCEL CKPT CAC 4) 23 
END} 


ne TAmMie03 JF BREAKORWRU AND NOT DOGLYCENSE THEN LINECLEARC(LCWeAL*))3 


END CASE 23 
“.END ALL CASESS 


EXITS 
END CLEANWORKFILE3 


ORCC SPECI SESE CCS ET LCCC CE TAL SOT ICTCIOT CCC OTTO LITTLTLITTTTT TTT TT 


REM@L PROCEQURE SPECSCAN 
CIADR* OADRs SIZsVOCABs VSIZEsHHICHs F TOG» EADRS)3 


TF FILENAME#O THEN GOERR ("NO FILE"*1) ELSE % CASE 0 


START OF SEGMENT «eee e eaten 


127 1S 6 LONGs NEXT SEG 
74021300 T 0120 
74021400 T 0124 
74921500 T 0324 

124 IS 131 LONG» NEXT SEG 
75000000 T 0064 
75000100 tT 0064 
75000200 T 0064 
78000300 fT 0064 
75000350 P 0064 

START OF SEGMENT #eeeteawes 
75000400 T 0000 
75000500 T 0000 
75000580 ¢ 0000 
75000600 T 0008 
75000700 T 0014 
75000800 T 0014 
75000900 T 0014 
75000910 T 0047 
75001000 T 0039 
75801100 T 0022 
75801200 T 0023 
75001300 T 0025 
75901400 T 0026 
75801500 T 0029 
75001600 T 0030 
75001700 T 0034 
75001800 T 0034 
75801900 T 0034 
75001910 T 0037 
75002000 Tt 0039 
75002100 T 0040 
75902200 T 0040 
75002210 T 0044 
75002220 7 0044 
75802300 T 0043 
75002310 T 0045 
75002320 T 0045 
75902400 T 0050 
75002500 T 0050 

START OF SEGMENT *##*¥eeween 

129 IS 4 LONGs NEXT SEG 
75002550 ¢ 0054 
75002600 T 0054 

128 1S 34 LONG, NEXT SEG 
76000000 7 0064 
76000100 T 0064 
76000110 T 0064 


127 
124 


128 


129 


128 


8 


‘ 


eb. 


VALUE VSIZEsFTOG»EADRSS 
REAL TADReOADRe SIZsVSIZESWHICHs FTOGsEADRS3S 
ARRAY VoOCABLOIJ3 


BEGIN 
LABEL L3 


REAL STR 
CTADR 


EAM PROCEDURE SPCSCAN 
sQADRs SI Zs VOCABsVSIZEWHICHsFTOGsEADRS)3 


VALUE VSIZEsFTOGr#EADRS3 
BEGIN LOCAL TeSVseDVeCOMAS LABEL NEXTsLETTER»NUMBRoF IIL EXITS 


COMMENT 


SPECIAL SCANNER FOR "FINO/REPLACE™ INSTRUCTIONS, 


RETURNS A VALUE ¢€ TO SPECSCAN ) OF8 


NOU w&w De 


135 


"INSTRUCTION" 

DELIMITED STRING 

SEQUENCE NUMBER» 

SEQUENCE NUMBER FOLLOWED BY "=" ( SEQUENCE RANGE )» 
END OF RECORD WITH CONTINUATION CHARACTER ("2") 

END OF STATEMENT 

FILE NAME 


re ERROR (MISSING STRING DELIMETER OR STRING TOO 4L0NG) 


ERROR (FINO/REPLACE "INSTRUCTION" TOO LONG) 
ERROR CFINO/REPLACE "INSTRUCTION" NOT RECOGNIZED) 
ERROR CSEQUENCE NUMBER TOO LONG) 


L48MISSING FILE NAME 


POSITY 


ee ee ee ee ee ey 


WOn Om fe Ye O 


_ 
oO 
u 


115 


ON OF *INSTRUCTION” RETURNED TO “WHICH? 
“FIND” 
"REPLACE" 

"FIRST" 

"LITERAL" 

"WITH" 

"ARROW" 

"PRINT" 

"ENO" 

"SEQUENCE" 

"TEXT" 

"FILE” 

"SITE" 


ENO OF cCOMMENT3 
ST#eI ADR STtaST+5s ST#sSC3 TALLY3363 COMASBTALLYS 

NEXTS IF SCw" * THEN BEGIN SIs3SI3413 GO NEXTS ENDS & SKIP OVER BLANKS 
IF SCwaLEFTARROW THEN % END OF RECORD 


BEG] 


N 


SVt@eSIs SItaLOC SVJ SJeeSye53 
DvisDI3 OltalOC EAORS3 O]ts014+53 
IF 3 SCwDOC THEN * END OF RECORD 


BEG! 
TA 


GIN 
LLYssCQMAS SPCSCANS2TALLYS GO To EXITS 


ENO} 
SIsssv3 OL¢s0vi 


ENDS 


IF S$Cs"s" THEN % COULD BE A CONTINUATION CHARACTER 


BEG] 
TALLY3 


N TALLY2353 COMASSTALLYS SIsaSIe13 GO TO NEXTS ENDS 
63 COMAPSTALLYS & NOT A CONTINUATION 


FTOGC JUMP OUT TO FILS %& JUMP TO FILENAME SCANNER 

IF SCsALPHA THEN % COULD BE ALPHABET» DIGIT OR "QMARK" 
BEGIN IF SC LSS "0" THEN GO TO LETTER 
IF sC GTR "9" THEN ELSE GO TO NUMBR3 


“ i me Os 


76000200 
76000300 
76000310 
76000320 
76000330 


START OF SEGMENT 


76000940 
76900350 
76000360 
76000400 
76000500 
76000600 
76000700 
76000800 
76000900 
76001000 
76001100 
76001200 
76001210 
76001300 
76001400 
76001500 
76001600 
76001610 
76001700 
76001800 
76001900 
76002000 
76002100 
76002200 
76002300 
76002400 
76002500 
76002600 
76902700 
76002710 
76002720 
76002800 
74002900 
76003000 
76003100 
76003200 
76003210 
74003220 
76003230 
76003240 
76003250 
76603260 
76003270 
76003280 
76003300 
76003400 
79903500 
76003550 
76003600 
76003700 
76003800 


AA HHH He Ht Ht tt tt at tt st a ta A te tt ot at tt a st a 


0064 
00614 
00614 
0064 
0061 
kev thbawen 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
9000 
09000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0004 
0003 
0004 
0004 
0005 
0006 
0006 
0006 
0008 
0008 
0008 
0008 
0009 
0010 
0011 
0013 
0013 
0014 


130 


e Page HB ben Me Sweety GRE ee Tele 


at SS, 


ers 


a “ @s @a 


END JF ALPHA} 
| PORPEPEREREU UE SELES SECRET Tee PEPE Tree eee ere ee eee ee ee 
® MUST BE A DELIMITER 
DItaloc Ts O[seD1+73 OStaeCHRs & SAVE THE DELIMETER 
SVteS]2 SIsseLOC SVJ DI teQAORs OStaWwOS; % STARTING ADDRESS 
STtaSys TALL Y2#103 SPCSCANSBTALLYS TALLYS 803 
63CIF SCaLEFTARROW THEN 
BEGIN 
SVssSIy STtsLOC SVs STtaST4#53 OLtelOC EADRSS DI sed] 453 
IF 35CR8DC THEN JUMP OUT TO EXIT ELSE SIasSv3 
ENp3 
IF SCeT THEN JUMP OUTS % 2ND DELIMITER 
TALLYSeTALLY+1s SIteSle1)3 
IF TOGGLE THEN ELSE X¥ TOO LONG 
BEGIN TALLY83104 SPCSCANSSTALLYS GO EXITS END} 
STssSy+d3 SVesSTs % SKIP OVER 2ND DELIMITER? SAVE ADDRESS 
TRSTALLYS SIssLOC Ts OLtS123 DStewOS; %& SIZE 
STasLoc Svs DJ FsITADRS OStuwOSs % NEXT ADDRESS 
TALLY¥s323 SPCSCANS*#TALLYS % CODE FOR DELIMITED STRING 
GO TO EXIT; 


CoPPeehReet HHO HOHE HeeeeeF eee teage HM OneeeHetHeeePReeeeHeonegeheonone 


LETTER! % SHOULD BE AN "INSTRUCTION" 


SVisSys TALLY2203 & SAVE STARTING ADDRESS 
SI#sLoc Svs DI sSeOADRs OStawOSs SIssSv; 
9CIF SC LEG "9" THEN ELSE JUMP OUTS 

IF SCBALBHA THEN ELSE JUMP OUTS SIsaeSleis TALLYSSTALLY*123 
IF TOGGLE THEN &% TOO LONG 

BEGIN TALLYs#115 SPCSCANt=TALLYS GO EXITS ENDS 
OVisSTs SI*SLOC OVS OItFIAORs DS&ewOS3 % NEXT ADDRESS 
TESTALLYS STtsLOC T2 STesSlo73 & SIZE OF "INSTRUCTION" 
IF SC LSS "3" THEN % 3 CHARACTERS MINIMUM 

BEGIN TALLY#al2s SPCSCANISTALLYS GO EXITS END; 
% NOW CHECK INPUT STRING AGAINST VOCABULARY 
OI teVQCABS Dv8aDls TALLY#a03 
VSIZECST¢aSVi IF T SC * OC THEN JUMP QUT? 

DIseDOV) OLSsDI+8s OVIBOLs TALLYCeTALLY+i 3 

IF TOGGLE THEN ELSE % NO MATCH 

BEGIN TALLY#tei1e2s SPCSCANS TALLY GO EXITS END3 
TeaTALLYZ ST&sLOC T3 OL tewHICKHs DStswpS;3 
TALLY 3343 SPCSCANSSTALLYS &% CODE FOR "INSTRUCTION" 


GO.TO EXIT3 
POO VEPTERECEREUEVERUREPP PEPE PELERETerTETTeTEeETERTTETeeEreee ree Pee 
NUMBR&§ % SHOULD BE A SEQUENCE NUMBER 
SVteSrTs SLSsLoC SV3 DE teQaORs DSteWDS; & STARTING ADDRESS 


SrtmSy3 TALLY3=03 
9CIF SC GTR "9" THEN JUMP OUTS 

IF $C LSS "0" THEN JUMP OUTS STtmSfors TALLYSaTALLY 44 )3 
IF TOGGLE THEN ELSE % TOO LONG 

BEGIN TALLYt#133 SPCSCANtsTALLYS GO EXITS ENOS 
TaaTALLYS G43C1F SCa”" " THEN SI#sS]ei1 ELSE YUMP OUT); 
IF SGa"e" THEN % SEQUENCE RANGE SPECIFIED 

BEGIN SI#=SI+13 TALLY$943 END ELSE TALLY8833 
SVseSTS ST2ELOC SVJ OLtalaAORs DStewOSs % NEXT ADDRESS 
SIt#LOC Ts OF seSIZ3 OStewoSs; %& SIZE OF FIELO 
SPCS@ANt#TALLYS GO TO EXIT 


Reece neath Orne HHO PDOREH EEO HOEK HE RHEE OHEHEOEEEEOER DOOD DEC HORHOSS 


FIIL$ & LOOKING FOR A FILE NAME 


76003900 
76904000 
76004100 
76804200 
74004300 
76804400 
76004500 
76004510 
76004520 
76004530 
76004550 
76004600 
76604700 
769046800 
76004900 
76005000 
76005100 
76005200 
76005300 
76005400 
76005500 
76005600 
76005700 
760058600 
76005900 
76006000 
76006100 
76006200 
76006300 
76006400 
76006500 
76006600 
76006700 
76806800 
76006900 
76607000 
76007100 
76007200 
76007300 
76007400 
76007500 
76007600 
76007700 
76007800 
76907900 
76008000 


76008100, 


76008200 
76008300 
74008400 
76008500 
76008600 
76008700 
76008600 
76008900 
76008905 
76008910 


AH HH Ht tt tt tt tt tt te HA tt tt tt ht tt et 


0015 
0015 
0015 
0015 
0016 
0017 
0018 
0049 
0019 
0021 
0022 
0022 
0024 
0025 
0025 
0026 
0026 
0027 
0028 
0029 
0029 
0029 
0030 
0030 
0034 
0033 
0035 
0035 
0036 
0037 
0038 
0038 
0040 
0040 
0040 
0043 
0045 
0045 
0046 
0047 
0047 
0046 
0048 
0048 
0049 
0049 
00590 
0053 
0053 
0054 
0087 
0057 
0059 
0060 
0060 
0064 
0064 


mc. 3¥ 


soore o 


“@ 
 ) SVtaS~3 SI&*_LOC SVS DIPROADRS OSteWOS3 % START OF STRING 76008915 T 0062 
ii SytaSys TALLY#403 76008920 T 0063 
| IF SCsALPHA THEN ELSE % MISSING FILE NAME 76008925 T 0063 
rd] BEGIN TALLY8#143 SPCSCANS@TALLYS GO TO EXITS ENDS 76008930 T 0064 
7CIF SC#ALPHA THEN ELSE JUMP OUTS SItaSI¢13 TALLYS*TALLY41)3 76008935 T 0065 
IF SCa"/" THEN % SECOND NAME GIVEN 76008945 T 0068 
® BEGIN SItsS]+13 TALLYISTALLY+13 % SKIP OVER "7" 76008990 T 0068 
7Clp SCaALPHA THEN ELSE JUMP OUTS SISsSI+1s3 TALLYSSTALLY41)3 76008960 T 0069 
END} 76008965 T 0072 
e SVteS{3 SIt*LOC SVJ DISSIADRS DStsWDS3 % NEXT ADDRESS 76008970 T 0072 
TEMTALLYS SIteLOC Ts OlseSiZs ODSstewDS; %¥ SIZE OF FILE NAME 76008975 T 0073 
TALLY#873 SPCSCANESTALLYS GO EXITS % CODE FOR FILE NAME 76008980 T 0074 
e EXIT# 76009000 T 0074 
END STREAM PROCEDURE SPCSCAN3 76909100 T 0074 
‘@ SPECSCAN!@SPCSCAN 76009110 T 0076 
= CTADRAQADR®SIZeVOCABS VSI ZEsWHICHe FTOG*E ADRS D3 76009120 T 0076 
. END PROCEDURE SPECSCAN} 76009130 T 0081 
© 130 IS 84 LONG» NEXT SEG 8 
@ 
LET ECEOELECLECE CST CCCICCCCSCOCCCESSCECCOCCALCASSCOCLCASCCSOSCCCSSE OLE E SELES LT S| 76009200 T 0061 
=) PROCEDURE REPLACEITCLCWsSTACK)# BOOLEAN LCW3 ARRAY STACK(O]3 76009300 T Q061 
= FETE ETEAITTET TILT LISTI TI LI TTL ITTILILTT ATES Tee cece cease ee! 76909400 7 OQ64 
BEGIN 76009500 T 0064 
@ COMMENT ROUTINE TO CHECK SYNTAX ANDO PACK INFORMATION INTO STACK, 76909600 T 0064 
STACK CODE! 76009700 T 0064 
STACKECBASE4+ 430001901) (1 = "FILE " INSTRUCTION RECEIVED) 76009710 T O064 
@ STACKEBASE+1)],CO2801) (4 = INPUT FILE SPECIFIED ) 76009720 T 0064 
STACKL BASES] )e£O3101) C1 = OUTPUT FILE SPECIFIED ) 76009730 T 0064 
STAcKCBaASES117 2004801) (1 = "SITE " INSTRUCTION RECEIVED) 760097490 T Q064 
® STACKEBASE+4 J0605401) (1 = "FIND " INSTRUCTION RECEIVED) 76009800 T 0064 
STACKECBASE*4) £06801) (C1 = "REPLACE ® INSTRUCTION RECEIVED) 76009900 T 0064 
STACKCBASE41)],0079011 (1 = "FIRST " INSTRUCTION RECEIVED) 76010000 T 0064 
e STACK(BASE41],0C08801) (1 = "LITERAL " INSTRUCTION RECEIVED) 76010100 T 0064 
STACKEBASES3 ),0C111047 C1 & “FRINT " INSTRUCTION RECEIVED) 760190200 T 0061 
STACKCBASE44].0128012 (1 = "SEQUENCE™ INSTRUCTION RECEIVED) 76010300 7 0064 
@ STACKCBASE+1 39027803) (1 & "TEXT “ INSTRUCTION RECEIVED) 76010400 T 0064 
STACKCBASE41) eC 38801) (1 = REPLACE OR FIND STATEMENT COMPLETE) 76010500 7 0064 
STACKCBASE4+1],0198013 (1 = FIRST REPLACE INSTRUCTION RECVD) 76030600 T 0064 
e STACKEBASE+1),£20804) ( STRING COUNT ) 76010700 T 0064 
STACK(CBASE41],024824)] ¢ TOTAL SIZE OF STATEMENT ( NO, OF CHARACTERS 76040800 7 0064 
4 CHARACTER CODE PRECEEDS EACH "STRING" IN STACKS 76040900 T 0064 
e 4ST CHARACTER ® TYPE OF STRING ( 22 3 OR & ) 76041000 T 9064 
2ND CHARACTER # 1 ITF "FIRST" ONLYs O IF ALL © FOR REPLACE ) 76011190 T QO64 
3RO CHARACTER = 1 IF "LITERAL" COMPARISON» O IF NOT 760131200 T 0064 
® 4TH CHARACTER = SIZE € NO OF CHARACTERS IN STRING Do 76011300 T 0061 
THE ROUTINE USES MESAGE/GANDE RECORDS MSGVAL THRU MSGVAL*6 79011400 T 0064 
END OF COMMENTS Lape T 0064 
& DEFINE wRD = STACK(BASE*1) #, 011600 T 0064 
START OF SEGHENT aveeweneee 13) 
e FTOG = WRO,CO1801) #5 76011610 T 0000 
@ 2 ‘ * “e me ms eco. 


INFIL * WRD,lO02104) # 
OUTFIL * WRO.LO3tOL] fp 
SITE = WRO.CO4I01] #,» 
FND = WRO,.CO5#01) #, 
REP = WRD,L06101) #2 
FRST ® WROeLO7#O1) # 
LIT = WRD,CO8t01) #, 
PRNT = WROSCILI01) # 
SEQ = WRD,CI2ZI01) #, 
TEXT ® WRO,CA7I01) #,y 
OK #@ WRO.C18801) #, 
FREP = WROGLL9901) #, 
STRGCNT ® WRD,lZ0104) #, 
a 


TS12 WRO,C24324) Be, 
PREV = STACKLBASE] #3 
ARRAY VOCABCO#18]3 
DEFINE MSGVAL & 50 #2 A ® STACK &3 
INTEGER X3 
REAL IADR» DADRs ARDADRsENDADR»s TYPE s SI Zs VSI Ze WHICH 
LABEL EXIT»CASEL3 


So III EISSN IOI IIIS ISON oR nk tik 
REAL STREAM PROCEDURE ERRVALUECQADR)S VALUE QADR3 
TU IIS III IGRI Sa GE IDO ink tii 
BEGIN % EXTRACT STRING FOR ERROR MESSAGE 
STtsQaORs OIteLOC ERRVALUES DSte8LIT"0 
7CIF SC#ALPHA THEN DS#8®CHR ELSE JUMP OUT)3 
END STREAM PROCEDURE ERRVALUES 


"3 OLts0 "73 


TPE CCPC PSCC SSCS CCE Te Pic eer Tircrerrreri ccc rrrcrecerrrrririrts 
REAL STREAM PROCEQURE CNVERTCOADRsSIZ)3 VALUE QADRsSIZ3 

Tere PCC e Pee ee ee Tere Te Tec Tec Tee eT eel ice coer es 2 
BEGIN SItsOADR3 OF3SL0C CNVERTS OSteSIZ OCTS 
END STREAM PROCEDURE CNVERT3 


EP RSERESERARSESE EERE REECE EES ESE SES PRR ESOS ECOSOC ESESALALR SESE SSS Ss 
STREAM PROCEDURE CLEARSTACK (STACKsTSIZ)3 VALUE TSIZ3 
OPUS ECE SCEASE SSCS SCTE SSCA CECE LESCOL ESLALSISTCLIASE SCARSELLA. 
BEGIN &% ZERO OUT THE STACK TO AVOIO POSSIBLE FLAG BIT ERRORSS 
LOCAL TysT23 
SIT?**#Loc TSIZs SJ ta5S1+63 
OI#sLOc Tiz DIseNI+73 OStecHR; OltsLOc T23 Olt=DIl+73 OSSsCHR; 
DIs#STACK3 & SHOULD POINT TO STACKE(BASE*2] 
TACA]COS#sZs2LIT"O*%)I3 T2coStaLIT"0")3 
END STREAM PROCEDURE CLEARSTACK3 


iT PRC ERCCESEE SEE LSE ES EPSRC RESET ESSE SOC ESE CLCO SE SOS ECL SSSELERSE LS © 


STREAM PROCEOURE SETLCL*sAROADRSs»ENDADRS)3 


ETOCS E SCEPC PE CCAR SLES EEE SEE EL ESE SEEPS CE RSE CEL SES ERS CCC LE CECE SS 


76011620 
76011630 
76011640 
76011700 
76011800 
76011900 
76012000 
76012100 
76012200 
76042300 
76012400 
76012300 
76042600 
7601@700 
76012800 
76012900 
76013000 
76013100 
76013200 
76013300 
76013400 
76013500 
76013600 
76013700 
76013800 
76013900 
76014000 


76014100 
76014200 
76014300 
76014400 
76014500 


76014600 
76014700 
76014800 
76814900 
76045000 
76015100 
76015200 
76915300 
76015400 
76015500 


76045600 
76015700 
76615800 


a a st nt at st st 


SS 


ee ee oe ee ee | 


414-4 


0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0004 
0004 
O004 
0001 
O004 
0004 
0001 
o001 
0003 
0005 
0007 


0008 
0006 
0008 
0008 
0009 


0010 
0010 
00140 
0010 
0010 
0010 
0010 
0012 
0012 
0020 


0020 
0020 
0020 


eee ‘ es wiv g 


BEGIN LOCAL §V; 
Diltal; OStsB8LIT"9"s OSts LIT LEFTARROWS 
DSsS7LIT"O"s OStaLIT "eM; 
OSte7LITVO"s OSHSLIT "Tae 
OSts7LIT*O%S OSHSLIT "<5 
OStezLIT"O7S OSESLIT ">; 
DStszL ITO" OSHFLIT "S35 
DSts7LITVO"s OStaL IT "23 
SItSL3 SVisS13 ST#ayoc Svs DISFENOADRSS DStFWOS3 
STsaSvs SI8eST+S8s SVISSTZ STteLOC SV3 OLsRARQADRSS OStRWOS3 
END STREAM PROCEDURE SETLS 


TPRSEPEPERPRSELALSE SESE REE PES EERE SE SRE SAREE EEE E PERE E ESE SERRE EERE ST 2 


STREAM PROCEDURE SAVEITCSTACKsOLOSI Zs 0ADRe ADDSIZs TYPE *NEWSIZ)3 
PE PRECERASE CRE SCERE EELS ESOS E CRC ECE SEES ECE SELSOSSOELESECESE SS ECL ES 
VALUE OLDSIZ*OADR* ADDSIZ* TYPE sNEWSIZ3 
COMMENT SAVE STRING AND PREFIX IN STACK; 
BEGIN LOCAL TlsT2sLT3 
STsslLoc OLOSIZs SIlteSIl+6s & CHARACTERS TO SKIP OVER 
DItelLoc T13 OlteDl +73 OSteCHRs Olse_oc Tes OlssD1+73 QOStacHR; 
DIteSTACKS DJ 33D14146s % SKIP OVER 1ST 2 WORDS 
TIC2CoI&apl+32))3 OLS8OleT2; ¥ SKIP OVER PREVIOUS STRINGS 
SI#sLocC TYPES SIt*SI+73 OS#eCHRS %¥ STRING TYPE ( 209394 OR 7 ) 
SIT&eSTACK; SIsaSI+93 
SKIP sB3 IF SB THEN DStaLIT"1" ELSE OSsaLIT"0o"s & "FIRST™ CODE 
LT&teDr3 SKIP SB; IF SB THEN DS#eLIT 1" ELSE OSteLIT"O"; & "LITERAL" 
SIisLOC ADDSIZ3 SIs=SI+73 DSteCHRs & SIZE OF STRING 
SIS90ADRS DSteADOSIZ CHRS %& TRANSFER STRING 
STtsLoc NEWSTZ3 SIteSI+4; DE seSTACKs NLta014+123 OSte4 CHR; 
% CHECK FOR ALL BLANKS IN TYPE 1 STRINGS 
SItsLoc TYPES SItaSl+73 IF Sce"4" THEN 
BEGIN SIt#OADRF ADDSIZCIF SC#" ™ THEN STteSI#1 ELSE YUMP QUT; 
IF TOGGLE THEN * ALL BLANKS» MUST BE IN "LITERAL" MUDE 
BEGIN DOI tahTs DOSteLIT"i"s END; 


ENDS 
END STREAM PROCEDURE SAVEITS 


TPR RECEP ESE CEES SCSL ECCS CSE CSE CEES PEC CCL SCOT ES CEP SECC ECC SoC cL 2S. Se 


STREAM PROCEDURE SETVOCAB(VOCAB)s 
EPR CERES E SITAR CECE SESE SSSR ECE S OSE OESESCRESCSSOSCSSCLASSSCSECCLOSESLSES SE Ss 
BEGIN DIssvOcABs OSSa3ZQLIT"FIND REPLACE FIRST LITERAL "3 
OSts4aLIT*WITH ARROW PRINT END SEQUENCETEXT "5 
OSte16LIT*FILE SITE "5 
DSts48LIT"NEQ EQ. LSS GTR LEQ GE@ "3 
ENO STREAM PROCEDURE SETVOCAB3 


PET RPER CECE CR SLALE REE REESE REESE PSEC ECE SE CERES CER E RE LES ELSES EEE ES SY 


CASE DOING OF 


’ . oe¢ws 


760145900 
76016000 
76016010 
76016020 
76016030 
76016040 
76016050 
76016060 
76016100 
76016200 
76016300 


76016400 
76916500 
76016600 
76016700 
76016800 
76016900 
76017000 
76917100 
76017200 
76047300 
76017400 
76017500 
76017600 
76017700 
76017800 
76017900 
76018000 
76018010 
76018020 
76018030 
76018040 
76038050 
76018060 
76018100 


76018200 
76018300 
76018400 
76018500 
76918600 
76018610 
76018620 
76018700 


76018800 
76019100 


AA AHHH 


HAH HHH HHH Ht ta Ht tt tH 
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0020 
0024 
0023 
0024 
0026 
0026 
0030 
0034 
0033 
0034 
0036 


0036 
0036 
0036 
0036 
0036 
0036 
0037 
0037 
0039 
0039 
0042 
0042 
0043 
0045 
0047 
0046 
0049 
0050 
0050 
0051 
0055 
0055 
0056 
0056 


0056 
0056 
0056 
0056 
0061 
0067 
0070 
0076 


0076 
0076 


isizt 


lee, yO se og hiss 
feloe Besccas lorem, Ipc os- 


BEGIN 
BEGIN &® CASE 0 
LABEL LOOPsSTRING»ERRORS 


IF NOT CONTINUEBIT THEN & FIRST CALL ON THE ROUTINE 

BEGIN STACK(BASE 4118703 CONTINUEBITISTRUES PREV83"1s ENDS 
IF PREVRCW * BASE LEQ 34 THEN % NOT ENOUGH ROOM 

BEGIN CLEARSTACKCSTACK(BASE¢2)] 4 TSIZ)3 

GOERRC"NO ROOM"sMSGVAL D3 


END3 
ITADRERADORESSC(WORKE1])% ® ADORESS OF INPUT RECORD 
SETVOCABCVOCAB)3 VSIZta163 % SET UP VOCABULARY 
SETLCL»ARQADRsENDADR)S % LOCATION OF 8 NINES AND LEFT ARROW 
LOOP! &% START OF SYNTAX CHECK 
TYPE te SPECSCANCIADRsOADR»s SIZ VUCABs VSI1Z» WHICH» F TOG* WORKENDADRS) 3 3SNTX 
MSGPTR t= MSGVAL 3 % "ERROR IN FIND/REPLACE STATEMENT 
IF TYPEs1 THEN % AN "INSTRUCTION" 
BEGIN IF WHICH LSS 2 THEN &% "FIND" OR "REPLACE" 
BEGIN IF FNO*REP NEQ 0 THEN GO ERRORS % REDUNDANT 
If WHICHSO THEN IF FREP&1 THEN GO ERROR ELSE FNODtal 
ELSE % WHICH # 4 
BEGIN REPt#43 FREPS=#13 ENDS 
FRSTis03 LIT#SO3 OKER03 
END % IF WHICH LSS 2 
ELSE IF WHICH LSS 6 THEN & "FIRST"»s*LITERAL"s"WITH™ OR "ARROW" 
BEGIN IF REP+FND NEQ 1 THEN GO ERRORS 
If WHICH LSS 4 THEN % "FIRST" OR "LITERAL" 
BEGIN IF STRGCNT NEQ@ 0 THEN GO TO ERROR} 
IF WHICH#2 THEN JF FRST#1 THEN GO TO ERROR ELSE FRSTIa1 
ELSE IF LITsi THEN GO TO ERROR ELSE LIT##13 
END % IF WHICH LSS 4 
ELSE IF WHICHs4 THEN GO TO LOGP % "WITH" (OPTIONAL WORD ) 
ELSE % WHICH = 5 ¢ "ARROW" ) 
BEGIN OADR&#ARQADRS SIZ#*13 TYPEt=25 GO TO STRINGS 


ENO 

END % 
ELSE IF 
BEGIN 
END % 
ELSE IF 
BEGIN 
END & 
ELSe IF 
ELSE IF 
ELSE IF 
ELSe IF 


BEGIN. 


% IF WHICH = § 

IF WHICH LSS 6 

WHICH®6 THEN &% "PRINT" 

IF PRNT®1 THEN GO TO ERRORS PRNT#QaLs TEXT#HEROS SEQS$RO3 
IF WHICH = 6 

WHICH®7 THEN &% “END” 

QADRIsENDADRS SI1Z8e82 TYPES&33 GO TO STRINGS 

IF wHICHs7 

SEQ*TEXT NEQ@ 0 AND WHICH LSS 10 THEN GO TO ERROR 
WHI CHeS THEN SEQ ta 1 

WHICHs9 THEN TEXT&8s 1 

WHI CH#10 THEN % FILE INSTRUCTION 

IF FREP#1 TREN GO ERRORS FTOGtsi3 


If INFIL#O AND PRNT#O THEN INFIL¢ ah 
ELSE IF OUTFILSO THEN OUTFIL Sa) 
ELSE GO TO ERRORS % TOO MANY FILES SPECIFIED 


END % 


IF WHICH «s 410 


ELSE IF WHICHE11 THEN SITEt#4 
ELSE IF WHICH LE@ 147 THEN 
BEGIN OQADREFAROQADR+(CWHICH# 14 D3 


SIZt#13 TYPEIs23 
GO TO STRING; 


END3 


76019200 T 


76019300 
76019400 


START OF SEGMENT 


76019500 
76019600 
76019700 
76919800 
76019900 
76020000 
76920100 
76820200 
76020300 
76020400 
76020500 
76020600 
76020700 
76920800 
76020900 
76821000 
76021100 
76021200 
76021300 
76021400 
76021500 
76021600 
76021700 
76021800 
76021900 
76022000 
76022100 
76022200 
76022300 
76022400 
76922500 
76022600 
76022700 
76022800 
76022900 
76023000 
76023100 
76023200 
76023300 
76023400 
76023405 
76023410 
76023415 
76023420 
76023425 
76023430 
76023435 
76023440 
76023450 
76023460 
76023470 
76023480 
76023490 


T 
T 
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0077 


0077 
0077 


0000 
0004 
0007 
0008 
0012 
0018 
0018 
0020 
0022 
0024 
0024 
0028 
0030 
0030 
0032 
0036 
0042 
0043 
0054 
0060 
0060 
0061 
0066 
0066 
0069 
0075 
0082 
0082 
0083 
0083 
0087 
0087 
0087 
0088 
0100 
0200 
9101 
0104 
0404 
9110 
0113 
0118 
0121 
0127 
0133 
0439 
0140 
0140 
0144 
0146 
0449 
0150 
0154 


Watley 


o. 5 


Sogre Busi 


va. 


GO TO LOOP; 
ENO & IF TYPEst 
ELSE IF TYPE LSS 5 THEN &% A STRING OR SEQUENCE NUMBER 
STRING? 
BEGIN JF TYPEs2 THEN &% A STRING 
BEGIN IF FND*REP NEQ 1 THEN GO TO ERROR} 
If REP®1 THEN % A REPLACE STRING 
BEGIN STRGCNT!i@STRGCNT * 13 
IF SIZsQ AND STRGCNT831 THEN GO TO ERROR} 
TYPE t= STRGCNTS & TELL SAVEIT WHETHER OLD OR NEW STRING 
IF. STRGCNT#2@ THEN % HAVE BOTH OLD AND NEW STRINGS 
BEGIN REP&#03 STRGCNT##O3 QKiels ENDS 
END % IF A REPLACE STRING 
ELSE OKteis % IF A "FIND" STRING 
EnD ®*® IF TYPE *® 2 
ELSE % A SEQUENCE NUMBERe TYPE # 3 QR 4 
BEGIN X3#SCNVERT(OQADRsSIZ)3 
If X LEQ PREV THEN GO TO ERROR ELSE PREV!twxs & CHECK NUMBER 
END IF A SEQ NO} 
XeevTSIZ + SIZ + 43 & TOTAL NUe OF CHARACTERS TO BE ADDED 
IF x GTR 230 THEN & NOT ENOUGH ROOM 
BEGIN CLEARSTACK(STACK(BASE¢2)]2TSIZ)3 CONTINUEBIT 82 FALSE3 
GOERRC*TOOLONG"sMSGVAL 23 
GND ® IF X GTR 230 
ELSE SAVEITCSTACKE BASE) -TSIZ*OADRsSIZsTYPE ex) & STORE STRING 
GQ TO LOOP; 
END ® IF TYPE LSS 5 
ELSE IF TYPE = 5 THEN % A CONTINUATION CHARACTER ANO LEFT ARROW 
BEGIN TEMP t= 323 WAITFOR #* VINPUT; 
IF SCHEOULINE THEN REQUESTIPCLLIS GO TO EXIT 
END % IF TYPE # 5 
. ELSE IF TYPE = 6 THEN % CALL OUT THE PROGRAM 
BEGIN 
CONTINUVEBIT ts FALSE3 
IF SQURCEFILES9 AND INFIL#0 THEN 
BEGIN GLEARSTACKCSTACKIBASE*2)2TS1Z)3 GOERRC NO FILE™*MSGVALQ3 
END3 
TEMP ta 33 
IF NOT BOOLEANCOK) THEN 
BEGIN CLEARSTACK(CSTACK(BASE+2)]eTSIZ)3 
GOERRC"INCOMPL"sMSGVAL)3 
ENDS 
CLEARCWORK(0]929)3 
MOVEC3Q2 WORDSe STACKCBASE+11» WORK(O))3 
DISKWRITECES@2)3 
CLEARSTACKCSTACK(BASE*+2) 2TSI293 
IF TPCOUNT NEQ@ Q THEN 


BEGIN 

LITQUTC"WAIT, “ae NOCRLE D3 
DOING 18 43 

WANT 3@ VUPDATE3 

60 TO EXITS 


END ; 
ELSE GO TO CASEI; 
END % IF TYPE 3 6 
ELSE JF TYPEs7 THEN % FILE NAME 
BEGIN 


ery of * » @ @ 4 


76023500 
76023600 
76923700 
76023800 
76923900 
76024000 
76024100 
76024200 
76024210 
76024300 
76024400 
76024500 
76024600 
76024700 
76024600 
76024900 
76925000 
76025100 
76025200 
76025300 
76025400 
76025500 
76025600 
76925700 
76Q25800 
76825900 
76026000 
76026100 
76026200 
76026210 
76926300 
76926400 
76026500 
76026600 
76026610 
76026620 
76026630 
76026700 
76826800 
76026900 
76027000 
76027100 
76027200 
76027300 
76027400 
76027500 
76027600 
76997700 
76027800 
76027900 
76028000 
76028100 
74028200 
76028300 
76028400 
76026410 
76028415 


AAA HAA HHH HH A tt ts st tt a Ht HH oa ot st a tt a te 


0154 
0154 
0154 
0152 
0154 
0154 
0159 
0164 
0166 
0370 
Qi72 
0474 
0184 
0184 
0187 
0187 
0187 
0190 
0192 
0192 
0195 
0196 
0202 
0209 
0209 
0245 
0215 
0215 
0217 
0219 
0225 
0225 
0227 
0227 


— 0289 


0233 
0243 
0243 
0244 
0245 
0249 
0256 
0256 
0257 
0260 
0263 
0z67 
0268 
0269 
0270 
0270 
0271 
0273 
O273 
0284 
0281 
oze2 


ace 


X $e TSIZ + SIZ + 43; & NO OF CHARACTERS TU BE ADDED 
IF x GTR 230 THEN &% NOT ENOUGH ROOM 


BEGIN CLEARSTACKCSTACKEBASE +2] »TSIZ)3 CONTINUEBITI=FALSES 


GOERRC™"TOOLONG"™ »sMSGVAL )3 
END % IF xX GTR 230 
ELSE SAVEITCSTACK(BASE] eTSIZ#QADRs SIZeTYPEsX)3 
FTOg?#03 
GO TO LOOP: 
END % IF TYPE © 7 
ELSE x MUST BE AN ERROR 


BEGIN 

MS@PTR $= MSGVAL + TYPE = 93 
ERRQR$ 

TEMP ita 33 


CLEARSTACKCSTACK(BASE+2) sTSI14)3 
CONTINUEBIT ## FALSES 
GOERRCERRVALUECQOADR) + MSGPTR)3 
ENO IF AN ERRORS 

END CASE 03 


BEGIN 3 CASE 1 
CASE13 
CLEARCWORK(0J]229)3 
WORKCO]8SESP23 
WORKLC 3] S"MAKEFNC"1S"5LL 3 
WORKEC OG] :eWORKC 6) eUSERCODES 
WORKESI]3*SOURCEFILE: 
WORKE7] $# FILETYPES % CHECK FOR TYPE DATA FILES 
RUNG3SIF BOOLEANCFNO) THEN "FINO " ELSE "REPLACE"; 
RUN2isIF BOOLEANCFND) THEN "DISK " ELSE "CANDE "3 
ERRSWtsUSERCODES 
DISKWRITECESP1)3 
IF BOOLEANCFND) THEN 
BEGIN 
TAMS#VDISPATCHS COMMONVALUESSESP1s LITQUTC™WALT 
END 
ELSE 


BEGIN 
WANTS®VDISPATCHS DOINGS #23 1F NOT CONCISE THEN LITOUTC"WAIT, 


ENDS 
EQJMSG tx NOT CONCISES WRITEASTERISK %= CONCISES 
% VOID 
GO TO EXITS 
END CASE 43 
BEGIN ¥ CASE 2 
LABEL DUMMY; 


If COMMONCELL,C2$1] = O THEN % NORMAL E0V 

BEGIN 

IF BOOLEANCFREP) THEN 
IF COMMONCELL + £21827] NEQ O THEN % SUBSTITUTIONS MADE 
BEGIN 
SOURCEFILE &* MAKEFNC™1S"sbL 23 
@Q0D0BJ t= FALSE 
CaNCELCKPTCAL*) 3 
EnO3 


N 
WRITEASTERISK3S#TRUES 


"*sNOCRLF Dé 


"ete 
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76028420 
76028425 
76028430 
76028435 
76028440 
76028445 
76028450 
76028455 
76028460 
76028500 
76028600 
76028700 
76028800 
76028900 
76029000 
76029400 
76029200 
76029300 
76029400 


327 LONG 


76029500 
76029600 
76029700 
76029800 
76029900 
76030000 
76030100 
76030150 
76030200 
76030300 
76030400 
76030500 
76030600 
76030700 
76030710 
76030720 
76030730 
76030740 
76030750 
76030760 
76030800 
76030900 
76031000 
760311400 
76031200 
76031210 


START OF SEGMENT 


76031300 
76031400 
76031500 
76031600 
76031700 
76031800 
76031900 
76032000 
76032100 
76832200 


Ce ee ee ee ee ee ee ee eee ee 


At tt tt at ta a A tt ot ot te a a 


0283 
0286 
0286 
0293 
0299 
0299 
0305 
0308 
0308 
0308 
0308 
0309 
O311 
0312 
O312 
0316 
0318 
0326 
0326 
NEXT SEG 
0079 
QO079 
0080 
0084 
0062 
0084 
0087 
0088 
0090 
0094 
0098 
Q099 
0102 
0104 
0104 
0107 
0107 
0107 
0114 
0118 
Olle 
0124 
0124 
0126 
0126 
0126 
eeHCHE EWS 
0000 
0004 
0002 
0003 
0005 
0006 
0008 
0010 
0011 
0011 


131 


133 


rn 


geben ge AS 


END % IF EQV OK 76032300 ~ 0033 

ELSE 76032400 yr 0013 

BEGIN % ERROR EJ 76032500 y 0013 

IF SCHEDULINE AND BOOLEANCFREP) AND NOT NUSTOP THEN SCHEDERRORS 76032600 T 0014 

LINECLEARCLCWsAL*) )3 76932700 yr 90029 

MSGPTR #8 MSGVAL3 760326800 T 0030 

WRITEASTERISK %* FALSE3 76032900 7Y 0032 

END 3 & IF ERROR EQ 76033000 T 0034 

IAM 8= WANT ts WAITFOR 33 03 76033100 T 0034 

END CASE 23 76033200 T 0036 
133 IS 37 LONGs NEXT SEG 131 

END ALL CASES: 76033300 T Q127 
START OF SEGMENT wawtewaeae 134 
134 1S 4 LONG, NEXT SEG 131 

EXIT! 76033400 T 0128 

END PROCEDURE REPLACITS 76033500 rT O128 
431 18 134 LONGs NEXT SEG 8 

III III IIIIIOUIIG IID RR Eee aE Ee ead 90016000 T 0061 

PROCEDURE REMEMBERTHIS (LcCW)s 90017000 fT 0064 

ECP P ECCS ESET CPPS Se EPEC TCT CPCS PEL CC CCC CCC LCC CS CCT TL TT eT es | 908138000 T 0064 

BOOLEAN LCwWs 90019000 T 0064 

IN 90020000 T QQ64 

DEFINE CTR & (306) #» USEDOROPEN & (12836) #3 90021000 y 9064 
START OF SEGMENT #*e#eenwee 135 

REAL STREAM RROCEQURE BITNUMBER (T)3 90022000 T 0000 

T3 90023000 T 0000 

BEGIN 90024000 T 90000 

4 90023000 T 0000 

SIts LOC T3 STt* SI+23 90026000 T 0000 

OCIF SC# "8" THEN BEGIN SIteSyots TALLYSaTALLY#63 END 90027000 T 9000 

ELSE 90028000 T Q002 

6CIF SB THEN BEGIN SKIP 4 SBS TALLYS@TALLY% 43 END 90029000 Y 0002 

ELSE 90030000 yY 0004 

JUMP QUT 2 TO L))3 90031000 Tf 0004 

BITNUMBER#™ TALLY3 90032000 T 0005 

END STREAMS 90033000 T 0006 

% 90034000 T 0007 

LINKe We ToS} 90035000 T 0007 

$ $s TOBECONTROLS 90036000 T 0007 

TOBECONTROL »USEQOROPENS= RCBCWES TOBECUNTROL eUSEDOROPEN) 90037000 tT 0008 

OR NOT BCTEBRCNOT BC Wl) OR BCWII)I3 90036000 fr 0009 

IF LINK#§S 35 = BITNUMBER (T) LSS 0 THEN 90039000 T 0014 

BEGIN 90040000 y 0046 

LITOUTC"NOTDONE*sCRLF 2S TOBECONTROL 38 93 90041000 7 0017 

END IF NOTREMEMBERED ELSE 90042000 T 0019 

BEGIN 90043000 T 0019 

THINGSTODO $3 BCW $* RCTHINGSTODO) + 4)3 90944000 T 0021 

IF W GTR 1 THEN TOBEQONECRCTHINGSLAST)eOJeCTR s# LINKS 90945000 fT 0024 

TOBEDONECLINKsO) te TALINKCL§40sels 90046000 T 0029 

ed id ww @ 4 e e 


me ees are 


1 
Migit SCRE ees ee 


THINGSLAST#™® BCLINK)S 

IF W #8 1 THEN THINGSLINKSs BCLINK)3 

MOVE (CAiS*eWORDS»WORK(O)] + TOBEDONECLINKs 1123 

MOVE CSsWORDSsEVENTS(CO Js TOBEDONECLINKs 16) )3 

INCCTQOBECONTROL CTR)3 

IF TOBECONTROL.CTR GTR 20 THEN WECANUSEDATA 3% FALSES 
END IF REMEMBERED; 
END OF REMEMBERTHIS3 


LOR EEREPESEVECLCCSSIECLECCOSSCESSEOCESOCCCOCOSCEC ELTA ECCS OCC ESRC LECCE L LEST SS 
PROCEDURE GETSOMETHINGTODO ¢(LCWsA)} BOOLEAN LCWS ARRAY ALOJ3 
OSE RPEPRPEPPEOCCECROCCOCA CERO RERESACESIESSAERESCECEERSESSERLACRESSESESESSESECALERLE SL» 4 
BEGIN 
DEFINE CTR = £396) #» USEDOROPEN @ (12836) #3 
REAL LINK» We The Ie COUNTs LCOUNTs LMAX3 
LABEL AGAINe EXIT) 
LMAX##REALC THINGSTODO)3 
LCOUNT& aL COUNT 443 
TL 23 REALCTHINGSLAST)3 
LINK!RSRCTHINGSLINKI J DECBCTHINGSTODO); 
THINGSLINKS BC TR acCWt x TOBEDONECLINK20)),CTRIE 
TOBECONTROL ,USEDOROPEN$S* & TURN OFF THE BIT FOR ROWCLINK) 
RCBCTOBECONTROL,USEDOROPEN) AND BCW))3 
MOVE (€1S5aWORDSsTOBEDONECLINKsOLJ eWORKCOI); 
MOVE COS*#WNORDSs TOBEDONECLINKs 16) eEVENTSCO) 23 
IF EVENTREASONSVINPUT OR EVENTREASONSVTEACHER OR 
EVENTREASONSVEQUATE THEN 
BEGIN 
WORKADRS t# ADDRESSC(WORK(1))4 
COUNT $# (CwORK(9OI71),03999)3 
WORKENDADRS 8 (CWORKADRSs COUNT. [4085] &COUNT(C3084543)3 
ENDS 


AGAIN 


Sous DECRCTOBECONTROLeCTRII 


IF TOBECONTROLeCTR LEQ 20 THEN WECANUSEDATA $8 TRUE} 
REASONS& EVENTREASONS 
IF SAVEOWHILEINITBUSY THEN 
% GET THAT ONE FIRST. 
If REASON LSS VINPUT OR REASON ® WAITINGSCW,SCWWAITBITS 


BEGIN 


Sones . THEN SAVEDWHILEINITBUSY ts FALSE ELSE 


BEGIN %& THIS ISNT ITe 
IF LCOUNT GTR LMAX THEN 
BEGIN 
REASONt#VERRORS ERRSWHa"SYS,ERR™S BUSYLINESBFALSES 
LINECLLeMSGPTRLOCJ] $8283 & TASK WAS DISCONTINUED 
GO TO EXIT; 
NO3 


ENO 
REMEMBERTHISCLCW)3 
ENDS 
WHILE } NEQ@ TL DO 
IF WISTOBEDONECI2162,.018#7) LSS VINPUT 
OR W # WAITINGSCW,SCWWAITBITS THEN 
BEGIN 


GO AGAIN} 
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90047000 
90848000 
90049000 
90950000 
90051000 
90052000 
90053000 
900546000 


93 LONG 


90055000 
90056000 
90057000 
90058000 
90059000 


START OF SEGMENT 


99060000 
90061000 
90061100 
90062000 
90063000 
90064000 
90065000 
90066000 
90067000 
90068000 
90069000 
90069010 
90069015 
98069020 
90069030 
90869040 
90069050 
90069060 
90970000 
90071000 
90872000 
90073000 
90074000 
90075000 
90076000 
90977000 
90077100 
90077200 
90077300 
90077400 
99077500 
90077600 
90078000 
90079000 
90080000 
90081000 
90082000 
90083000 


T 
T 
T 
T 
T 
T 
T 
T 
’ 


a a a aa ts ts ttt ts te ot st 


0032 
0035 
0036 
0044 
0044 
0047 
0050 
0050 


NEXT SEG 


0064 
QQ64 
0064 
0064 
0064 

keeekhates 
9000 
0000 
0000 
Q004 
0003 
0004 
0009 
0013 
0014 
00146 
0019 
o0z2 
0025 
00a7 
0028 
0030 
0032 
0034 
QQ034 
Q037 
QOQ441 
9042 
0043 
0043 
0045 
Q04a9 
0049 
0050 
0050 
0054 
0056 
0058 
0058 
0059 
0059 
0064 
0063 
0065 


8 
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y41lT 


"D2. SV 


ere Businc.7 F 


SAVEDWHILEINITBUSY8#@TRUES GO EXITS 
END ELSE ItsTOBEDONECT 20) eCTR3 
ENO IF SAVEOWHILEINITSUSYS 
EXIT! END OF GETSOMETHINGTQDOS 


SEC RC EPSCCCCOCCCCOCSC CAS CA CCE CCCCOCAS SSC TC SC CCLOSE ESSEC ECS ECE EL ELSES ED | 
PROCEDURE FINISHED (LCWse AS BOOLEAN LOWS ARRAY ACO]; 
EP RAL OSEC OCCT CTO ESTEE C CLEA EAST ESA EEC ECE CEES E LESSEE SEL | 
BEGIN 
LABEL RESTRTs EXITS 


Beene erg Serene ee ee HHH HH CHORE e eH PHO HHE He POOH EEE HOPE EHE PEE REOH EERO ETOH EES 
STREAM PROCEBURE PLSLOGOFFCWORK)3 
BEGIN DI tWORK3 
DSts45LITYOUR SCHEDULED TIME IS UPe PLEASE LOG OFF AS "3 
DStei7LIT"SOON AS POSSIBLE."3 
END PLSLOGOFF3 


POPP ErePETEEEPEREEE Eee ere re rere reer rere er rrr erry errr ere ere errerreer se 
STREAM PROCEDURE TELLHIMBYECWORK)3 
BEGIN DT !2WORK3 
OSssa7LIT"*SORRY*/BUT YOU ARE PAST YOUR SCHEDULED TIME AND "3 
OSte2aLiTewe MUST DISCONNECT YOU, 
ENO TELLHIMBYES 


Rewer Peer PH ee HOO AH OOOOH ERE EHH EH OPERA CHONDA DER OR ERD OR SHOE ROR OR EHE 
BOOLEAN STREAM PROCEDURE TIMEQK(N*® AQ VALUE Neo Ab 
BEGIN SrsaLoC As STtsST+4s NCSKIP $B); 
IF SB THEN TALLYS#13 TIMEQKS*TALLY3? 
END TIMEQK3 


PTT rrr rrr rrr rrrrr rrr rrrrrrrrrrrrrrrrrr rrr rrr rrr rr errr errr rer rere 
ALLOONE ta TRUE 3 
IF BOOLEANCTIMERESTRICTBIT) THEN % USER HAS RESTRICTED TIME PERIOD 
IF NOT TIMEOKCENTIERCTIMENQWESTIMEC1)/216000)sTIMELIMITS) THEN 
IF NOT NOTIFIED THEN % USER IS NOT AWARE KIS TIME $3 UP 
BEGIN PLSLOGOFFCWORKIZ TWXOUTC(LL» WORK (0]26222)3 
NOTIFYBIT te REALCTRUE)S NOTIFYTIME t& TIMENOWS END 
ELSE 
BEGIN IF TIMENOW = NOTIFYTIME GTR GRACEPERIOQ THEN 
BEGIN TELLHIMBYECWORK)S TWXOUTCLL»WORKOCOJs7002)3 NOSAVE Bm@TRUES 
LINECLEARCLCWAAL#I)3 ACBASEJ#*0O% BYECLCWsALHI)S GQ EXITS END? ENDS 
IF INITIATEDWHILEBUSY THEN 
BEGIN 


90984000 
90085000 
990084000 
90087000 


T 


T 
T 


T 
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90088000 
90089000 
90090000 
90091000 
90091100 


START OF SEGMENT 


90091200 
90091300 
90091400 
90091500 
90091600 
90091700 


90091800 
90091900 
90092000 
99092100 
90992200 
90092300 


90092400 
90092500 
90092600 
90092700 
90092800 


90092900 


90093000 
99093100 
98093200 
90093300 
90093400 
90093500 
90093520 
90093600 
90093700 
90093600 
90894000 
90095000 


ne ee ee ee ee 


nt 4 


444-4 4 


eee ee 


0066 
0069 
0072 
0072 
NEXT SEG 


0061 
0061 
0061 
0061 
0061 


eee N REN 
0000 
0000 
0000 
0000 
0006 
0008 


0009 
0009 
0009 
0009 
0015 
0018 


0019 
0019 
0019 
0024 
0022 


0023 
0023 
0025 
0026 
0031 
0033 
0036 
0040 
0040 
0044 
0050 
0057 
0057 


§ 
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IF LLINFQ NEQ 0 THEN WAITINGSCW tm LLINFO 
ELSE WAITINGSCWeSCWWAITBITS ta 03 
INITIATEDWHILEBUSY t= BOOLEANCLLINFO# #023 
IF SAVEOWHILEINITBUSY THEN GO RESTRT ELSE GO EXITS 
ENDS 


BUSYLINE $3 FALSE; 


% vOID 
% VorI0 


RESTRTS 


IF REAL CTHINGSTODO) # O THEN 
BEGIN 

ALLMCPMSG s# FALSES 

LIBMSGCTR sa 03 

IF SCHEDULING TREN REQUESTIPCLL) 

ELSE 

IF WRITEASTERISK THEN 

TWXOUTCLL » ASTOR? 1913 

WRITEASTERISKSSFALSES GO EXITS 
END3 
COMMENTS SOMETHING HAS BEEN REMEMBEREDS 
RESTARTNEEDED %e TRUES 
GETSOMETHINGTODOCLCWs Al 4) )3 


EXITIENDS 


OSPR REPESECCCSIC OSE SECE RE SES EE ERS CE SCECESCC SECS EEC SLEEP EES EEL EEE EES SE ESS | 


DEFINE 


DEFINE 


DEFINE 
DEFINE 


SPAGE 


BUILOSCW BSCWSRORWATTFOREILOSALI7IAPREVRCWO 1784008) aBASE 
C25t4OsBIAOOINGLSIS4LI7ICTAMCSOS4OFGIRIC1I4682) 
#5 

BUILDRCW #RCWERSCWSSREGLCORSGOSBIRPARAME 1194197 I1&8TEMP 
CASPSS7IRDOINGCSSEASE7TIRTAMCAOSGOFBIR]CII46I2) 


#3 
STORERCW #A(PREVRCWSeSCWPREV@ 1) 3% RCW 83 
% 
RECALL RCWRBEGIN RCW teALCPREVRCOWESSCWPREV)S 
PARAM t#RCWPARAM} 
TEMP SBRCWTEMP 3 
BASE S@RCWBASE 3 
OOING ##BRCWOOINGS 
1AM §RRCWIAM 3 
SREG teRCWSREG 
PREVRCWISPREVRCOW +13 
WANT twWwAITFORE&O3 
ENO OF RECALLRCW #3 


% 


pO OCR SIUC EPEC OSICCCCECSSROSER SLE CCE LSS EES ESSE E PEEPS RESETS LSE EEE EES ESD | 


BOOLEAN PROCEDURE ANOTHEROPERATION (LCWs ADS 


ERTS REPECEPOSESECLS SASSER ESE SEO SORES EE SCSSOCCEEEC ELS CEES ER EL ER SEES ESE EE SS | 


BOOLEAN 


ARRAY 
LABEL 


LOGWS ; 
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90096000 
90097000 
90098000 
90099000 
90100000 
90101000 
90102000 
90103000 
90104000 
90105000 
90306000 
90107000 
90107100 
90107200 
90108000 
90109000 
901410000 
90111000 
90112000 
90113000 
90114000 
90115000 


93 LONG 


90116000 
90147900 
90118000 
90119000 
90120000 
90121000 
90122000 
90123000 
90124000 
90125000 
90126000 
90127000 
90128000 
90129000 
90130000 
90131000 
90132000 
90133000 
90134000 
90295000 
98136000 
90137000 
903386000 
90139000 
90140000 
90141000 
90142000 
90143000 
90144000 


START OF SEGMENT 


YT 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
’ 


eat Ht tt tt st tt ts) ts 


0058 
0060 
0064 
0067 
0069 
0069 
0074 
0074 
00714 
0072 
0073 
0075 
0076 
0077 
0061 
0082 
0064 
0087 
0087 
0087 
Q090 
0092 
NEXT SEG 


0064 
0064 
0064 
0064 
0064 
0064 
0064 
0064 
0064 
0064 
0061 
0064 
0064 
0064 
0064 
0064 
0064 
0064 
0064 
0064 
0064 
0064 
0064 
0064 
0064 
0064 
0064 
0064 
0064 


waethewnw 
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err 


Lit BEGIN 


IF IAM NE@ O THEN 


BUILDRCW3 STORERCWS 


% PROCEDURE IS NOW IDLE AND CAN BE RESTARTEDS 


THE NEW PROCEOURE IS NOW READY TO BE CALLED3 


78 SCW) 


LINE wILL NOW WAIT ON EVENTQUE 


WAITINGSCWHSBUILOSCWS 
WE CAN NOW RETURN TO THE LAST UNFINISHED PROCEDURE; 


END 
ELSE 
DOING ta 03 
SREGi=BASE t# BASE + TEMP + PARAM} 
IAM $# WANT3 
BUILOSCW3 
IF WANT NEQ@ O THEN 
BEGIN 
A (BASE) t% PARAM; 
DOING t& WANT fs Q3 
ENO 
TEMP i PARAM $s Q3 
IF WAITTFOR NEQ O THEN 
BEGIN 
ANOTHEROPERATION 3* FALSE} 
WAITINGSCW 
END 
ELSE 
BEGIN COMMENT NO WAIT IS REQUIREDS 
IF CANOTHEROPERATION 
BEGIN COMMENT RESET RETURN INFOS 
RECALURCW 
END 
END IF LINE DID NOT HAVE To WAIT 
ENO OF ANOTHERQPERATIONS 


dliehheh detehh tet tht tht PTT ETC S TIS CITE TIST TLIC LETT LET TEs 


HANDLETHISLINECLCWs ADs 


Litt Re PE TSS CTCL OCOLETCLCCCOL TCC ST CCOT CCST TST TTT Tees | 


PRA@CEDURE 


BOOLEAN 
ARRAY 


LABEL 


IN 
RESTARTs AGAINs 


RESTARTS 


TH 
BEGIN 


END 


El 
BEGIN 


LCWs 
ACQ]3 


IAM #8 WANT te WAITFOR te TEMP 


ALLDONE §#% FALSES 


RESTARTNEEDED tm FALSE} 


EXIT3 


$# PARAM 


IF WAITINGSCW.SCWWAITBITS ® REASON 


OR WAITINGSCW,SCWWAITBITS = RONOT FALSE) 064187) 
EN 
COMMENTS SOMEONE IS WAJTING FOR THIS EVENTS 


SCW 8% WATTINGSCW3 
WAITINGSCW ta O03 


PREVROW 3® SCWPREV2 


WANT & REASON} 


COMMENT THIS PROCEOURE WILL BE RECALLEDS 


COMMENT A NEW PROCEDURE IS TO BE GIVEN CONTROLS 


COMMENT WE MUST WAIT BEFORE THIS LINE CAN CONTINUES 
IF TAM NE@ 0 THEN GO TO L43 COMMENT MAKE LINE JOLE3 


+8 NOT ALLDONE) AND JAM EQL O THEN 


te QO) 


SE 
COMMENTS WE WERE NOT WAITING FOR IT SOU; 
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90145000 
90146000 
90147000 
90148000 
90149000 
90150000 
90151000 
90152000 
90153000 
90154000 
901535000 
90156000 
90157000 
90158000 
90159000 
90160000 
90161000 
90162000 
90163000 
90164000 
90165000 
90166000 
90167000 
99168000 
99169000 
90170000 
90171000 
90172000 
90173000 


38 LONG 


90174000 
90175000 
90176000 
90177000 
90178000 
90179000 
90180000 


START OF SEGMENT 


90181000 
90182000 
90183000 
90184000 
901865000 
90186000 
90187000 
90188000 
90189000 
90190000 
99191000 
90192000 
90193000 
90194000 
90195000 


T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
’ 


tO te a Ht 


0000 
0000 
0002 
0011 
0011 
0011 
0012 
0015 
0015 
0022 
0023 
0023 
0025 
0026 
0026 
0027 
0026 
0028 
0030 
0030 
0032 
0032 
0032 
0032 
0035 
0035 
0055 
0055 
0055 

NEXT SEG 


0064 
0061 
0064 
0064 
0064 
0064 
0064 
cehteewe 
0000 
0000 
0002 
0005 
0007 
0006 
0010 
OO11 
0011 
0012 
0014 
0015 
0015 
0035 
0015 


8 
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— 


Sf tides be tec gy Rat 


BL 


BEGIN 
BEGIN 


END 


ENO 


IF JOLELINE THEN 


COMMENT$ MUST BE A NEW EVENT FOR THIS LINES 


IF NOT LOGGEDON THEN 


CHARGEI= ©1413 
LOGGING ON THE SYSTEM 
BUSYLINE %= TRUES 
BASE. t= SBASE3 
PREVRCW 1§* LLWORDSS 


Eu 
BEGIN 
IF REASONSVTEACHER THEN &% DONT PERMIT MULTIPLE INQUIRIES 

IF INQUIRY THEN GO EXIT ELSE INQUIRY %* TRUE} 
IF REASON LSS VINPUT AND NOT INITIATEDWHILEBUSY THEN 


BEGIN 


BEGIN 


END 
BEGIN 


END 


END 
END 


END 


INITIATEOWHILEBUSY t# TRUES 


LLINFO $s SCW te WAITINGSCNWS 


BASE ts SCWBASE + 43 
PREVRCW t* SCWPREV = 13 


ELSE 


LITOUTC"NOTOONE*s CRLF 3 
ELSE 


REMEMBERTHIS (LOW); 


N 
IF RCTHINGSTOOO) GTR 2 THEN 


IF REASON ® LLINFOeSCWWAITBITS 
OR REASON LSS VINPUT THEN SAVEDWHILEINITBUSY $* TRUES 


IF REMEMBERED; 
GO EXIT3 
REASON VS 153 
IDLE OR NOTS 
BUILOSCHW3 
ACPREVRCW) t= BUILORCWS 
WAITING OR NOT} 


rT Orr rrr PIII TTTeLitrreieTLire Teer 


AGAIN? 


BEGIN 


BEGIN 


IF NOT ANOTHEROPERATION (LOWs AL*J)) THEN GO EXIT; 
COMMENT? IF WE GOT TO HERE JT MEANS TWERE JS SOMETHING 
THAT GAN BE INITIATED FOR THIS LINE NOW, 
"TAM" IS SET TQ THE CASE VALVE WHICH WILL CALL 
QUT THE APPROPRIATE PROCEDUREs SO# LETS TRYIT 


CaSE IAM OF 


FINISHEOCLCWs AL#J252% 00 
HITHERECLCWsACeI)3 6% 01 
BREAK CLOWeAC#])s & 02 
WRU CLOWsALe))s & 03 
LINECLEARCLCW,AC#)I3% 04 
DISKCHUNKS % Q5 
DISCONNECTCLCWe AC wd 3206 
INPUTDATACLCWsAC*) 23% O07 


ze 


LAST THING DONE ON LINE. 
OIAL UP, 

BREAK OCCURRED, 

WHO ARE YOU RECD, 

CLEAR LINE AFTER O2 OR 03, 
NEW CHUNK OF DI SKa 
DISCONNECT OCCURRED, 

INPUT DATA 1S IN OUR BUFFER, 
08 * BREAK FINISHED, 


MSGPTRiai8s &% IT AM THE GENIE pee 


90196000 
90197000 
90198000 
98199000 
90201000 
90202000 
90203000 
90304000 
90305000 
90206000 
90207000 
90208000 
90208100 
992068200 
90209000 
90210000 
90211000 
90212000 
90213000 
90214000 
90215000 
90246000 
98217000 
90218000 
90219000 
90220000 
90221000 
90222000 
90223000 
90224000 
90225000 
90226000 
90227000 
90228000 
90229000 
90230000 
90831000 
99232000 
90233000 
90234000 
98235000 
90236000 
90237000 
90238000 
90239000 
90240000 
902414000 
90242000 
90243000 
90244000 
90245000 
90246000 
90247000 
90248000 
90249000 
90250000 
90250400 


At HN NH Ht Ht A tt tt st ttt tt a tt tt ot a st 


ares 


r 


re 


—_——> 
eee 


END B 


BEGIN 


ENDS 


TAMS BWANTSFWATTFORS 20} 

REAKCLEARS 

RESTARTITCLCWsAC#) 23 % 09 © AFTER H/L SAVE WRKFILE 
TAMISWAITFORSSEVENTSC123 & 10 = MCP USEs 

MAKEDATE3 % 11 * DATE CHANGED. 
HITHERECLCWeAC#])3 &% 12 CRETURN FROM NEWS/CANDE FIND) 
CALL CNOTUSED)3 2 136 

MCPMSGCLCWs AL) 3 2 14 = HANDLES MCP MESSAGES aBOUT wOBS 


COOLITCAL #193 * 15 
MCPOKCA(C#))3 % 16 
CALLCNOTUSEDO)3 17° 
CALLCNOTUSED)3 % 16° 
CALLCNOTUSED)3 x19 ° 
CALLCNOTUSED )3 % 20°" 
CALLCNOTUSED)3 % 21" 
CALL CNOTUSED)3 % 22° 
CALL CNOTUSED)3 23° 
CALL CNOTUSED )3 a 24° 
TEACHERC(LCWsACw))3 % 25 7 WANTS ELABORATION. 


ENEUTSECH SAL Te WORRTADSEVENT SS COVE VENTOE S107 & USER INPUT 
DISPATCH(LOWs ACH) )3 27 * FIRES UP RUNNERS, 

DISKREAD CLCWs ALwl))3 28 * READS DISK FOR PROCEOURES 
CALLONOTUSED)3 
OOPS(LCWsAL#) D3 
DOGCATCHERCLCWeACe) D3 
COMPILEITCLCWeAC#I 23 
SETUPFILESCLCWsAC#) D3 
ERROR CSREGsLCWe AL*I)S 
CLOSE WORKTABLECLCWAl*#) D3 


ERR OURING SCAN 
DOGCATCHER, 

COMPILE IT, 

SET UP ON HELLO 

ERROR HANDLER 

TO MAKE SURE TABLE I5 TIDY 


ft) 
wa 
4a2@aa8 td as aaaga 


CHNGPSWOCLCWsACw) 3 36 GHANGE PASSWORD 
THYMECLCWsAC HJ )3 37 TIME 
CARRIAGECLCWeAL D4 38 CARRIAGE CONTROL, 
CHNGNAMECLCWs AL #) D3 39 CHANGE NAME 


Be de dE aE DE DEC DE ae DE DE dE DE DE BL 
w 
uw 


MONITORRCLCWeAL aw) DA 
SETITCLCWe ACH) 3 


40 
4. "= "SET" & "RESET" 


SSFILECLCWeAl a) )3 % 42 TRANSMIT FILE 
EQUATECLCWs ale) )3 % LABEL EQUATION 
STATUSCHECKCLOWeAL*) 3 % 44 * STATUS UF RUNNING QB 
CALL CNOTUSED)3 * 45 % 
CALL CNOTUSED)3 % 46 * 
CALLCNOTUSED 3 x 47 * 
CALLCNOTUSED )3 * 48° 
CALLCNOTUSED)3 % PH - 

% * SEND SS MSGS 


MOVE (4p WORDS»EVENTSES I oNGRKE10I)5 
TWXOUTCLL*WORKCOJ211222)3 


IAM #8 Q3 

POITCLCWsAC He) )3 % 51 ° LIST FILES 
COPYIT (CLCWeAC#) 23 % 52 ° COPY, 
SEQCLGWsAL#I)3 % 53 = WANTS SEQ #5, 
$45 340 

BYE CLOWsAL 4) 23 ¥ 54 ° BYE, 
MAKENEWFILECACW))3 % 55 * MAKE 

LISTIT CLOWs ACH) )3 % 56 * LIST 
EXECUTECLCWeAL#))3 *% 57 *° RUNeCOMPILE OR EXECUTE 
LOADIT (LCWs AL*))3 % 56 * LOAD 

rs © u ‘ 


90250200 
90250300 
90251000 
90252000 
90253000 
90254000 
90255000 
90256000 
90257000 
90258000 
90259000 
90260000 
90261000 
90262000 
90263000 
90264000 
99265000 
90266000 
90267000 
90268000 
90269000 
90270000 
90271000 
90272000 
90273000 
90274000 
90275000 
90276000 
90277000 
90278000 
90279000 
90280000 
90281000 
90282000 
90283000 
90284000 
90285000 
90286000 
90287000 
90888000 
90289000 
90990000 
90891000 
90292000 
90293000 
90294000 
90295000 
90296000 
90297000 
90298000 
90299000 
90300000 
99301000 
90302000 
90303000 
90305000 
98307000 


ete tt ee tt tH A tt to tt tt A tt tt a 


0089 
0090 
0094 
0093 
0095 
0100 
0403 
0104 
0106 
0108 
0110 
0441 
01412 
0113 
0215 
0116 
0117 
0116 
0120 
0122 
0126 
0128 
9130 
0131 
0334 
0436 
0138 
0140 
0143 
0145 
014? 
0450 
0152 
0454 
0156 
0159 
0164 
0163 
0165 
0167 
0168 
0169 
0170 
0172 
0172 
0174 
0176 
0176 
0177 
0179 
0181 
0184 
0164 
0186 
0188 
0190 
0192 


* 


EXIT? 


SAVER (CLCOWs, ACw))3 % 59 © SAVE 

CALLCNOTUSED)3 % 60 

REMOVE (LCWs ALe))3 & 61 * REMOVE 

CHANGECLCWHA)D; % 62 * CHANGEs 

RENAMEIT CLCWs AL*))3 % 63 * RENAME 

WHATSIT CLCWs ACwJ)3 % 64 * PRINT FILE TYPE 

CALL CNOTUSED)3 * 65 ° WAS "TYPE" 

CALLCNOTUSED)3 % 66 

GUARDIT(LOWs ACH) )3 % 67 ™ GUARDCMAKE LOCK) 

LOCKITCLCWeALH))3 % 68 = LOCK OR UNLOCK 

TAPEITCLCWe ACW) )3 % 69 = PAPER TAPE 

LISTITCLOWHAL HJ D3 % 70 * PRINTCNO HOING) 

CHARGEITCLCWs Ale) D3 * 71 ™ CHARGE CUDE 

SCHEDULECLCWsAL al D3 & 72 ™ SCHEDULE A TASK, 

SCHEDSTATUSC(LOWsAC*))3 % 73° *° SCHED STATUS/STOP 

LISTFILECLCWsACe) Ds & 74 @ LIST FILES, 

UPDATE CLC WAAL #))3 % 75 ° UPOATE WORK FILE 

REPLACEIT(LCWsAl#) 3 & 76 * REPLACEMENT ROUTINE 
END OF CASE SOMETHING MORE MAY BE NEEDEDS 

IF RESTARTNEEDEO THEN GO RESTART ELSE GO AGAIN} 
END OF HANDLETHISLINE 


BEER EA EE EE AER EERE HEE EKER EEEEERE KEE 


RUNCANDE3 


RETA T EEA RHETT ARENT EERE RENEE EERE REE NRE 


PROCEDURE 


( 


fr 


/ 


% VOID 90347004, 


BEGI 


BEGIN 
IF NOQDATA AND WECANUSEDATA THEN 


N 
HAVEVENTS 


dO % THE LOOP STARTS HERE 


IF NODATAREQUESTED THEN 


BEGIN 


END3 


REQUESTINPUT CTTYINPUT [C¥)23 
NODATAREQUESTED t@ FALSE 


IF TIMETOOKLINES THEN 

TF MAKEQKEVENT THEN GO TO HAVEVENTS 
WAITBITIsSREALCNODATA)3 

NEXTEVENT CWAITBITe CLOCK, EVENT (#))3 
IF BOQLEAN CWAITBIT) THEN 


BEGIN 


MOVE (SaWORDSsEVENTCOJsEVENTS(OJ)3 
as MSEVENTLLI 
IF REASONISEVENTREASON @ VMCPMSG THEN 


MOVEC 15#WORDS*EVENTE4) »WORKLO} 23 

IF REASONSVHELLO THEN 

IF LINECLL 2132 ¢SCWHAITBITS NE@ REASON THEN 
LINECLL»23) 8* EVENTSC2)3 % TERMINAL TYPE 


990308000 
90310000 
90312000 
90313000 
90314000 
90315000 
90316000 
90317000 
90318000 
90319000 
90320000 
90321000 
90422000 
90322100 
90322200 
90322300 
90322400 
90322500 
90323000 


AHA HAH DH ot ts 


0194 
0197 
0200 
0202 
0204 | 
0207 
0209 
0210 
0211 
0214 
0216 
0218 
0220 
0223 
0225 
0227 
0229 
0232 
0234 


START OF SEGMENT wexewtunen 


140 15 78 LONGs 
99324000 T 
90325000 T 
90326000 T 

139 IS 238 LONG, 


90327000 
90328000 
90329000 
90330000 
90331000 
START OF SEGMENT 
90332000 
90333000 
99334000 
90335000 
90336000 
90337000 
90338000 
90339000 
90339100 
90339200 
90340000 
90341000 
90342000 
90343000 
90344000 
90345000 
90346000 
90347000 
90348000 
90348100 
90348200 
90348300 


on en fiom, ian lien ion on Ieee ties. Iam tien ee Eee Bee ee ee ee ee eee 


NEXT SEG 
0234 
0236 
0237 

NEXT SEG 


0064 
0061 
0064 
0064 
0064 
eeeha te 
0090 
0000 
0000 
0001 
0003 
0003 
0004 
0006 
0006 
0007 
0009 
0Q10 
0012 
0012 
0012 
0015 
0016 
0018 
0016 
0021 
0022 
0024 


140 
139 


14) 


seks 


® 
e -END ELSE BUILDADATAEVENTS . 90349000 T Ova? 
te eeas LEPe on ai eat 90350000 r 0028 
BEGIN LLt$20s REASONS 2134 ENDS xBAD LINE NUMBER 90351000 fT QOQ29 
@ IF REASONSVHELLO AND LOGGINGON THEN 90352000 Tf 90034 
BEGIN LLs20% REASONS #2133 END3Z 90353000 T 0033 
. HAVEVENT# 9 92—-—-——___ 90353500 T 0035 
@ IF LLPREV NEQ@ LL THEN 90354000 T 0036 
BEGIN COMMENT A DIFFERENT USER IS GOING TO USE TIiMmE3 90353000 fT 0036 
IF LLPREV NEQ O THEN 90856000 Tf 0037 
@ BEGIN COMMENT CHARGE PREV USER FOR HIS TIMES 90357000 tT 0038 
( LINECLUPREVesPTLOCIS=CLOCK@CLOCKPREV4eLINECLLPREVePTLOC]A 90358000 7 0038 
ENO IF USER TO BE CHARGED} 90359000 T QQ042 
® LLPREVSsL43 90360000 T 0042 
CLOCKPREVISCLOCK3 90361000 T 0043 
: END IF NEW USER TO BE HANDLED; 90362000 fT 0044 
@ IF REASON NEQ 13 THEN % THROW AWAY #13%BAD LUCK, 90363000 T 0044 
, HANDLETHISLINECLCWsLINECLL oJ D3 90364000 tT O044 
e@ END OF LOOP UNTIL FALSE; 9036S000 rT 90049 
: END RUNCANDES 99366000 fT 0049 
141 1S 50 LONGs, NEXT SEG 8 
@ 
® Fee ee ee EERE EERE RENAE EEREKKEEEERENM REE HE RE 90367000 7 O06i1 
PROCEDURE INITIALIZECANDE3 90867100 T 00614 
PRPS CCPC ICCLOCSCAL SESE ELSES CESSES CSCIC TSS ICCA LETICIA LITT TLrLTTT: 90367200 T 0064 
@ BEGIN LABEL DUMMY} 90367300 7 0064 
START OF SEGMENT s#*e8teweew § L42 
STREAM PROCEDURE SETUPCOMM2(COMM2)5 90367400 tT 90000 
e BEGIN DI §sCOMM23 90367410 T 0000 
ODSieB LIT"OBBT894(";3 ® 3"0040103410110435" 90367420 rT 9000 
OSt= LIT*s"3 OL stsOl eqs % 3"75" 90367430 FY O00;4 
e SItsLOC COMM2s SItsS]¥55 09353 CHR; 90367440 T 0002 
END 90367450 T 0003 
@ 
e REAL STREAM PROCEDURE ADDRESS(W)3 90367500 T 0003 
BEGIN SI#ews ADDRESS#*#SI3 END? 90367510 Y 0003 
@ 
® LIURCRER ETE EEE EEP LEE Te ECE TEE EERE TOTTI ee eer ere err rr rerr 90367600 T 0008 
OTR APE SES ECL CECE SLCC CLA LLCS ESS CCS CTO TLL CCALCALLSCLCCLALIT ELT TTT 90367610 T 90005 
e PROCEDURE SpPOLOGONCLCWsA)3 BOOLEAN LOWS ARRAY ALO]3 90367620 T 0005 
Rie TR ERE EEE ETE EERE EEE EEE REE ERNE EERE EE RENEE 99367630 T 0005 
BEGIN 903676480 T 0005 
REAL VRB»sN3 90367650 T 0005 
® START OF SEGMENT eeekeneeen 143 
STREAM PROCEDURE SETBITCNsWORD)S VALUE Ni 90367660 T 0000 
BEGIN LOCAL Nii 90367670 T 9000 
e Srtsroc N$ SI*BSI+63 OIteLOC NAS DOT $eD1 +73 OSteCHR3 90367680 T 0000 
DISBWORDs NICDT&s0T+8)3 SKIP N OBZ DS#aSETS 990367690 T 0001 
Ends 90367700 tT 0003 
] 
@ ee a | ° » rn + « ' 


14t2t 


nme 


' 
Moot 


oe | 


ESP1 t= GETESPDISK3 
ESP2 t= GETESPOISK} 
USERCODE ts "SPO ns 
LOGGEDON t= TRUES 
LINECLEARCLCWSAL*))5 
FILESOK t= FALSE; 
FILL WORKC#) WITH 

"SEQ "s "SHELLO ", "4BYE ts “QTAPE =e 
"2PUNCH "» "6CHARGE “s "3SCHEDUL™s "3STATUS "> 
"3STOP "» "2c ", "3SET "» "SRESET '"» 
"OTIME  "»s "2MONITOR"S 


FOR yRB t= O STEP 1 UNTIL 13 00 
BEGIN 
N $s WORKCVRB)3 
IF YOUPINODAVERB(Ns VERBTABLE(CO)» NUMOFVERBS) THEN 
BEGIN 
N 8% (NeL989)) DIV 23 
SETBITCN+1» RESTRICTEDVERBS)3 
ENO? 
END; 
END PROCEDURE SPOLOGONS 


MAKEDATE3 


COMMENT VERBTABLECWORDJef683)] IS USED AS A FLAG FOR 
SCANNER ¢( FOR “"SPECIAL" VERB 23 


FILL VERBTABLEC#) WITH 


"ILIST =, 37300000Q9000000070", 3% 
"LRUN ", 373000020000000071" % 
"2SAVE "s 3"3000040000000073"» % 
"1SE0 ", 3"3000060000000065"» 3% 
"LEXECUTE™s 3"3000100000000071"» % 
"200 "s 373000100000000071%, 3% 
"LMAKE =» 3"3000149000000067"» % 
"2L0AD ", 3%3000160000000072", 3% 
PLCOMPILE™s 3°3000200000000074"% 3% 
"3REMOVE ", 3"3000220000000075", % 
"2CHANGE "» 373000280000000076", % 
"3RENAME "s, 3°3000260000000077", % 
"LFILES "» 3°3000300000000063", % 
"{WHATS "ys 373000320000000100" 3% 
"2CREATE "s 3° 3000340000000067"5 % 
"SHELLO "» 3°30140360000000001", % 
"2TYPE  "» 373000400000000076% 3% 
"BYE "2 373000420000000066" % 
"3COPY , 3%3000440000000064", % 


40904" 
20904 
20904" 
20904" 
309048 
209048 
20904" 
20904" 
30904" 
30904" 
209049 
20904 
209048 
209048 
40904@ 
%0904" 
209048 
20904" 
20904" 
#56 20904" 
#57 40904" 
#59 20904" 
#53 %0904" 
#57 40904" 
#57 = EXECUTE 
455 40904" 
#58 x0904" 
#57 409048 
#64 20904" 
#62 20904% 
#63 20904@ 
#54 209042 
#64 ALSO 40904" 
#55 alsa 40904" 
01 20904" 
#62 ALSO 20404" 
#54, 40904 
#52 209048 


144 18 


143 15 


START OF SEGMENT 


90367710 T 
90367720 T 
90367730 T 
90367740 T 
90367750 T 
90367760 + 
90367770 T 
90367780 P 
90367790 P 

« 

P 


START OF SEGMENT 


90367800 
90367810 Pp 
90367820 P 
14 LONG, 
90367830 P 
90367840 P 
90367850 P 
90367860 P 
90367870 P 
90367680 Pp 
90367890 Pp 
90367900 P 
90367910 P 
90367920 P 
30 LONGs 


99368000 


90368010 
96368020 
90369000 
90370000 


90371000 
90372000 
90373000 
90374000 
90375000 
90376000 
90377000 
98378000 
90379000 
90380000 
90381000 
90382000 
90383000 
90384000 
90385000 
90386000 
99387000 
90388000 


VuvVBGIGVIVVITVVVVTVVV VV Vw HT Ve eT 


0004 
0004 
0005 
O007 
0008 
0010 
0012 
0014 
0015 
HWHRUEKED 
0016 
0016 
0016 
NEXT SEG 
0016 
0018 
0018 
0019 
0020 
0021 
0022 
0024 
0024 
0027 
NEXT SEG 


0005 
00140 
0010 
0010 
0041 


khkktkkky 


0012 
0012 
0012 
0012 
0012 
0012 
00142 
Q012 
0012 
00412 
0012 
0012 
0012 
0012 
0012 
0012 
0012 
0012 


144 


143 


142 


145 


”% 


Sate 


perce c foc aw Peas 


"Q2MERGE " 


e 
"3RESEQ y 
"2DELETE ", 
"APPEND "ss 
"1AD0 "5 
"2T0 "» 
"2ss ", 
"iGUARD "yy 
"3LOCK "» 
"UNLOCK *, 
NOTAPE ", 
MAPRINT , 
"2PUNCH >» 
"6CHARGE "» 
WISCHEDUL"» 
"3STATUS ", 
"3STOP a) 
W2TIME ne 
"UPDATE ", 
"ZREPLACE"» 
"GF IND ", 
"2cCc ba 
"2RMERGE "> 
"1IDISPLAY"» 
"3SET ", 
"SRESET ", 
W2MONITOR",» 


"3SSFILE "s 
"@EQUATE ", 
"3PUBLIC "> 
"7 aw wheal, 


3% 3000460000000064", 
373000500000000064",» 
3"3000520000000064", 
3”3000540000000064", 
373000540000000064", 
3" 3000600000000062", 
3" 3000620000000062", 
3"3000640000000103", 
3" 3000660000000104", 
3"3000700000000104", 
3"3000720000000105", 
3"3000740000000106", 
3" 3000760000000064", 
373001000000000107"» 
3730010200000004 40", 
3%3001040000000111",» 
3” 3001060000000111",» 
3*3001100000000045", 
3” 3001120000000443", 
3730411400000003144", 
373011160000000444",5 
3” 3001200000000046", 
3™3001220000000064", 
373001240000000070", 
3%301126000000005 4", 
3"3041300000000054", 
373004320000000050", 
37 30014340000000052", 
3"3001360000000053", 
3° 3001400000000104",5 
04 % LAST ENTRY 


at DE DE DE DE aE dE DE DE at DE aE DE 26 


BE DE DE DE BE BE DE DE DE DE ae ae 


#520 
#520 
#52 
#520 


ALSO 
ALSO 
ALSO 
ALSQ 


920AL350 


50 


SO0e2ALS0 


67 
68 


68, ALS0 


69 
70 


920 ALSO 


ALSO 


76 ALSO 


92 ALSO 


41 ALSO 


68 ALSO 


LOCKCVERBTABLEC#))# % MAKE READ ONLY ARRAY 
FILL TYPETABLEC#) WITH "7UNKNOWN", 


WEBASIC "2 
"EALGOL "» 
"ECOBOL "» 
"GFORTRAN"» 
WETSPOL "es 
"FXALGOL "es 
"35EQ ", 
“a4DATA Wy 
"3LQCK "» 
*GINFQ ", 
"GCOBOL68"3 


LOCKCTYPETABLEC#])5 % MAKE READ ONLY ARRAY 
FILL RESWROTABLEC#) WITH "7UNKNOWN'® 


"SBASIC "» 
"SALGOL "» 
"SCOBOL "»s 
"7FORTRAN"? 
“STSPOL "» 
"6OXALGOL "ts 
"3SE0 "» 
e V 


BE DE de ae BE ae ae 


NOuUS wt) 


%0904= 
20904 
409048 
’0904" 
20904" 
20904" 
20904" 
20904" 
%0904" 
40904 
40904 
209046 
20904" 
30904" 
20904" 
20904" 
409048 
40904 
20904e 
20904" 
209048 
%0904" 
40904 
20904" 
20904" 
%09048 
x09048 
20904" 
20904" 
40904" 
40904" 


20904" 
20904" 


30904 
20904 
20904 
20904" 
40904 
20904" 
40904" 
20904 
40904 
409048 
209048 


’0904" 
RQO904% 


%0904 
40904" 
40904 
20904 
40904" 
40904" 
40904" 


145 15 


90389000 
90390000 
90391000 
90392000 
90393000 
90394000 
90395000 
90396000 
98397000 
90398000 
90399000 
90400000 
90403000 
90402000 
90402400 
90402200 
90402300 
90402400 
90402860 
90402870 
90402880 
90402890 
90403000 
90403100 
90403200 
99403300 
99403400 
90403410 
90403420 
90403430 
90403900 


100 LONG 


90403950 
90404000 


START OF SEGMENT 


146 IS 


90405000 
90406000 
90407000 
90408000 
90409000 
99410000 
99411000 
90412000 
90413000 
904143100 
90413900 


12 LONG 


90413950 
90414000 


START OF SEGMENT 


90415000 
90416000 
99417000 
90418000 
90419000 
99420000 
98421000 


- CVDUVUVVIVVUVMOVVUVVVVVVU YE VPVVYVTV PVT 


DVVvwy TV V+?A DV US VuvwvuPVVvV.TVywyA VV 


0012 
0012 
0042 
0012 
0012 
0012 
0012 
0012 
0012 
0012 
0012 
0012 
0012 
0012 
0012 
0012 
0012 
0012 
0012 
00142 
00142 
00412 
0012 
0042 
0012 
0012 
0012 
0012 
0012 
0012 
0012 
NEXT SEG 
0012 
0014 


Wekthatkan 


0016 
0016 
0016 
0016 
0016 
0016 
0016 
CO16 
0016 
0016 
0016 
NEXT SEG 
0016 
0018 


wWaetatehes 


0020 
0020 
9920 
0020 
0020 
0020 
0020 


142 


146 


142 


147 


av 4 len ’ ' * ‘7 . a 
MADATA ", X 8 20904" 
"4LOCK ", & 9 209048 
"AINFO "»s &% 10 20904" 
"?PCOBOL6B"» %& 14 20904 
W6PUBLIC "» % 12 %09048 
"7SOLEUSE™» % 13- 20904" 
"7UNLOCKE"» & 14 20904 
"6LOCKED "» % 15 %0904° 
"6QOBJECT "s % 16 20904 
"6SQURCE "» % 17 & 1° 17 ARE POSITION DEPENDENT 40904" 
"4CARDS “s % 18 #0904 
"KHOISK "» & 19 20904" 
"3END "» & 20 40904" 
"SERRORS "ps % 24 20904" 
"FILES "» &% 22 %0904" 
"4FROM "2 % 23 20904" 
"7LIBRARY"s % 24 20904" 
"7PRINTER"s & 25 20904" 
"SPUNCH "s % 26 20904 
"SRESEQ "s & 27 209049 
"ATAPE "s % 28 30904" 
"ATYPE ", % 29 30904" 
"4AWITH "ps % 30 20904" 

WJ eww eee & 31 30904" 
147 
LOCKCRESWRDTABLEC*J)4 % MAKE READ ONLY ARRAY 
SETUPCOMM2(COMM2)3 
ASTOR,(185) t= "4"5 
SPOLOGONCLLCONTROLCOJsLINELOs*) 23 
FLAGS t= (NOT FALSE) & FALSEC62612)3 
WORKECOII#03 DISKWAITCL*WORKE 4) 23020)3 
DISKBOTTOMS2WORK(4)]"23 SINITIALIZE ITe 
WORKCLOJ8303 WORKADRS#SADDRESSC(WORK(1) )3 
WORKENDADRS 8% ADDRESSCWORKL9))3 
END INITIALIZECANDE? 
142 
INITIALIZECANDE; 
RUNCANDES 
END PROCEDURES BLOCK$ 
8 
END COMMUNICATES BLOCK3 
3 
ENO ARRAYS BLOCKe 
2 
1 


NUMBER OF ERRORS DETECTED = QO. COMPILATION TIME = 1124 SECONDS, 

PRT SIZE = 3953 TOTAL SEGMENT SIZE = 40840 WORDS DISK SIZE = 540 SEGS3 NOe PGM. SEGS # 153 
ESTIMATED CORE STORAGE REQUIRED = 11490 WORDS. 

ESTIMATED AUXILIARY MEMQRY REQUIRED = 0 WORDS, 


NUMBER OF CARD"IMAGES PROCESSED ® 7624, 


Is 


Is 
IS 


i) 
IS 


a 


99422000 
909423000 
90424000 
90425000 
90426000 
90427000 
90428000 
90429000 
90430000 
90431000 
90432000 
90433000 
90434000 
90435000 
98436000 
90437000 
98438000 
90438100 
90438200 
90438300 
90438400 
90438500 
90438600 
90439000 


32 LONG 


90439100 
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90442200 
99442300 
90442400 
90442600 
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0020 
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0020 
0020 
0020 
NEXT SEG 
0020 
0022 
0023 
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0029 
0032 
0034 
0037 
0039 
NEXT SEG 
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0061 
0062 
NEXT SEG 
0018 
NEXT SEG 
0032 
NEXT SEG 
NEXT SEG 
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